puts "APFP Regression Test"
require "rapfp/ApConfig"
require "rapfp/Ap"
require "time"
rconst = $ApConst.new
rconst.one.setrconst(rconst)
rconst.init2
rconst.one.setrconst(rconst)
$RConst = rconst
cconst = ApcConst.new(rconst)
cconst.one.setcconst(cconst)
cconst.one.setrconst(rconst)
$CConst = cconst
$pgm = File.new("testpgm.mxt","w")
$pgm.puts "global total_tests, total_exceptions;"
$pgm.puts "mstart := trunc(time()*1000.0);"
$pgm.puts "rstart := #{Time.now.to_i}*1000;"
t = Process.times
$pgm.puts "rcpuustart := #{t.utime}*1000;"
$pgm.puts "rcpusstart := #{t.stime}*1000;"
$pgm.puts "total_tests := 0;"
$pgm.puts "total_exceptions := 0;"
$pgm.puts "hours_elapsed := proc(msec)"
$pgm.puts "local hrs;"
$pgm.puts "hrs := trunc(evalf(msec/3600000));"
$pgm.puts "hrs ;"
$pgm.puts "end;"
$pgm.puts "min_elapsed := proc(hrs,msec)"
$pgm.puts "local min2;"
$pgm.puts "min2 := trunc(evalf((msec-hrs*3600000)/60000));"
$pgm.puts "min2;"
$pgm.puts "end;"
$pgm.puts "sec_elapsed := proc(hrs,min2,msec)"
$pgm.puts "local sec2;"
$pgm.puts "sec2 := trunc(evalf((msec - hrs*360000 - min2 * 60000)/1000)) ;"
$pgm.puts "sec2 ;"
$pgm.puts "end;"
$pgm.puts "msec_elapsed := proc(hrs,min2,sec2,msec)"
$pgm.puts "local msec2;"
$pgm.puts "msec2 := msec - hrs*3600000 - min2 * 60000 - sec2 * 1000;"
$pgm.puts "msec2 ;"
$pgm.puts "end;"
$pgm.puts "dump_except := proc(maplefunc,apfunc,x,fxm,fxr,fxrerr,percent_error,abs_error,except_fd)"
$pgm.puts "global total_tests, total_exceptions;"
$pgm.puts "total_exceptions := total_exceptions + 1;"
$pgm.puts "fprintf(except_fd,\"EXCEPTION: Maple func = %s APFP func = %s\\n\",maplefunc,apfunc);"
$pgm.puts  "fprintf(except_fd,\"x              = %18.12e\\n\",x);"
$pgm.puts  "fprintf(except_fd,\"Ruby APFP      = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(except_fd,\"Maple          = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(except_fd,\"Ruby est fxrerr= %18.12e\\n\",fxrerr);"
$pgm.puts  "fprintf(except_fd,\"Abs Error      = %18.12e\\n\",abs_error);"
$pgm.puts  "fprintf(except_fd,\"Percent Error  = %18.12e\\n\",percent_error);"
$pgm.puts  "end;"
$pgm.puts "out_fd := fopen(`c:\\\\cygwin\\\\home\\\\dennis\\\\src\\\\mine\\\\aptst\\\\aptst.txt`,WRITE,TEXT);"
$pgm.puts "except_fd := fopen(`c:\\\\cygwin\\\\home\\\\dennis\\\\src\\\\mine\\\\aptst\\\\apexcept.txt`,WRITE,TEXT);"
$pgm.puts "Digits := 16;"
puts "maplefunc = sin apfunc = sin"
$pgm.puts "fprintf(out_fd,\"maplefunc = sin apfunc = sin\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = sin apfunc = sin\\n\");"
x = c(-6.0)
$pgm.puts  "fprintf(out_fd,\"x = -6.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-6.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.9)
$pgm.puts  "fprintf(out_fd,\"x = -5.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.8)
$pgm.puts  "fprintf(out_fd,\"x = -5.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.7)
$pgm.puts  "fprintf(out_fd,\"x = -5.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.6)
$pgm.puts  "fprintf(out_fd,\"x = -5.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.5)
$pgm.puts  "fprintf(out_fd,\"x = -5.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.4)
$pgm.puts  "fprintf(out_fd,\"x = -5.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.3)
$pgm.puts  "fprintf(out_fd,\"x = -5.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.2)
$pgm.puts  "fprintf(out_fd,\"x = -5.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.1)
$pgm.puts  "fprintf(out_fd,\"x = -5.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.0)
$pgm.puts  "fprintf(out_fd,\"x = -5.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-5.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.9)
$pgm.puts  "fprintf(out_fd,\"x = -4.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.8)
$pgm.puts  "fprintf(out_fd,\"x = -4.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.7)
$pgm.puts  "fprintf(out_fd,\"x = -4.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.6)
$pgm.puts  "fprintf(out_fd,\"x = -4.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-3.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-2.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -1.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -1.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -1.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.6)
$pgm.puts  "fprintf(out_fd,\"x = -1.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.900000000000004)
$pgm.puts  "fprintf(out_fd,\"x = -0.900000000000004\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.900000000000004);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.800000000000004)
$pgm.puts  "fprintf(out_fd,\"x = -0.800000000000004\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.800000000000004);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.700000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.700000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.700000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.600000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.600000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.600000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.500000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.500000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.500000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.400000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.400000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.400000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.300000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.300000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.300000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.200000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.200000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.200000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.100000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.100000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-0.100000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.57966997657877e-15)
$pgm.puts  "fprintf(out_fd,\"x = -4.57966997657877e-15\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(-4.57966997657877e-15);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.0999999999999954)
$pgm.puts  "fprintf(out_fd,\"x = 0.0999999999999954\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.0999999999999954);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.199999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.199999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.199999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.299999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.299999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.299999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.399999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.399999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.399999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.499999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.499999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.499999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.599999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.599999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.599999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.699999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.699999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.699999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.799999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.799999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.799999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.899999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.899999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.899999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.999999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.999999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(0.999999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.5)
$pgm.puts  "fprintf(out_fd,\"x = 1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.6)
$pgm.puts  "fprintf(out_fd,\"x = 1.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.7)
$pgm.puts  "fprintf(out_fd,\"x = 1.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.8)
$pgm.puts  "fprintf(out_fd,\"x = 1.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.9)
$pgm.puts  "fprintf(out_fd,\"x = 1.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(1.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.0)
$pgm.puts  "fprintf(out_fd,\"x = 2.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.1)
$pgm.puts  "fprintf(out_fd,\"x = 2.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.2)
$pgm.puts  "fprintf(out_fd,\"x = 2.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.3)
$pgm.puts  "fprintf(out_fd,\"x = 2.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.4)
$pgm.puts  "fprintf(out_fd,\"x = 2.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.5)
$pgm.puts  "fprintf(out_fd,\"x = 2.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.6)
$pgm.puts  "fprintf(out_fd,\"x = 2.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.7)
$pgm.puts  "fprintf(out_fd,\"x = 2.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.8)
$pgm.puts  "fprintf(out_fd,\"x = 2.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.9)
$pgm.puts  "fprintf(out_fd,\"x = 2.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(2.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.0)
$pgm.puts  "fprintf(out_fd,\"x = 3.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.1)
$pgm.puts  "fprintf(out_fd,\"x = 3.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.2)
$pgm.puts  "fprintf(out_fd,\"x = 3.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.3)
$pgm.puts  "fprintf(out_fd,\"x = 3.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.4)
$pgm.puts  "fprintf(out_fd,\"x = 3.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.5)
$pgm.puts  "fprintf(out_fd,\"x = 3.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.6)
$pgm.puts  "fprintf(out_fd,\"x = 3.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.7)
$pgm.puts  "fprintf(out_fd,\"x = 3.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.8)
$pgm.puts  "fprintf(out_fd,\"x = 3.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.9)
$pgm.puts  "fprintf(out_fd,\"x = 3.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sin
$pgm.puts  "fxm := sin(3.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sin,sin,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sin,sin,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = cos apfunc = cos"
$pgm.puts "fprintf(out_fd,\"maplefunc = cos apfunc = cos\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = cos apfunc = cos\\n\");"
x = c(-6.0)
$pgm.puts  "fprintf(out_fd,\"x = -6.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-6.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.9)
$pgm.puts  "fprintf(out_fd,\"x = -5.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.8)
$pgm.puts  "fprintf(out_fd,\"x = -5.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.7)
$pgm.puts  "fprintf(out_fd,\"x = -5.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.6)
$pgm.puts  "fprintf(out_fd,\"x = -5.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.5)
$pgm.puts  "fprintf(out_fd,\"x = -5.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.4)
$pgm.puts  "fprintf(out_fd,\"x = -5.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.3)
$pgm.puts  "fprintf(out_fd,\"x = -5.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.2)
$pgm.puts  "fprintf(out_fd,\"x = -5.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.1)
$pgm.puts  "fprintf(out_fd,\"x = -5.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.0)
$pgm.puts  "fprintf(out_fd,\"x = -5.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-5.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.9)
$pgm.puts  "fprintf(out_fd,\"x = -4.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.8)
$pgm.puts  "fprintf(out_fd,\"x = -4.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.7)
$pgm.puts  "fprintf(out_fd,\"x = -4.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.6)
$pgm.puts  "fprintf(out_fd,\"x = -4.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -4.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -3.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-3.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -2.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-2.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -1.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -1.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -1.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.6)
$pgm.puts  "fprintf(out_fd,\"x = -1.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.900000000000004)
$pgm.puts  "fprintf(out_fd,\"x = -0.900000000000004\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.900000000000004);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.800000000000004)
$pgm.puts  "fprintf(out_fd,\"x = -0.800000000000004\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.800000000000004);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.700000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.700000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.700000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.600000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.600000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.600000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.500000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.500000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.500000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.400000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.400000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.400000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.300000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.300000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.300000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.200000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.200000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.200000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.100000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -0.100000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-0.100000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.57966997657877e-15)
$pgm.puts  "fprintf(out_fd,\"x = -4.57966997657877e-15\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(-4.57966997657877e-15);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.0999999999999954)
$pgm.puts  "fprintf(out_fd,\"x = 0.0999999999999954\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.0999999999999954);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.199999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.199999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.199999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.299999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.299999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.299999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.399999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.399999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.399999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.499999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.499999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.499999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.599999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.599999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.599999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.699999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.699999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.699999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.799999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.799999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.799999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.899999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.899999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.899999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.999999999999995)
$pgm.puts  "fprintf(out_fd,\"x = 0.999999999999995\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(0.999999999999995);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.5)
$pgm.puts  "fprintf(out_fd,\"x = 1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.6)
$pgm.puts  "fprintf(out_fd,\"x = 1.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.7)
$pgm.puts  "fprintf(out_fd,\"x = 1.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.8)
$pgm.puts  "fprintf(out_fd,\"x = 1.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.9)
$pgm.puts  "fprintf(out_fd,\"x = 1.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(1.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.0)
$pgm.puts  "fprintf(out_fd,\"x = 2.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.1)
$pgm.puts  "fprintf(out_fd,\"x = 2.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.2)
$pgm.puts  "fprintf(out_fd,\"x = 2.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.3)
$pgm.puts  "fprintf(out_fd,\"x = 2.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.4)
$pgm.puts  "fprintf(out_fd,\"x = 2.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.5)
$pgm.puts  "fprintf(out_fd,\"x = 2.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.6)
$pgm.puts  "fprintf(out_fd,\"x = 2.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.7)
$pgm.puts  "fprintf(out_fd,\"x = 2.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.8)
$pgm.puts  "fprintf(out_fd,\"x = 2.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.9)
$pgm.puts  "fprintf(out_fd,\"x = 2.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(2.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.0)
$pgm.puts  "fprintf(out_fd,\"x = 3.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.1)
$pgm.puts  "fprintf(out_fd,\"x = 3.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.2)
$pgm.puts  "fprintf(out_fd,\"x = 3.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.3)
$pgm.puts  "fprintf(out_fd,\"x = 3.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.4)
$pgm.puts  "fprintf(out_fd,\"x = 3.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.5)
$pgm.puts  "fprintf(out_fd,\"x = 3.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.6)
$pgm.puts  "fprintf(out_fd,\"x = 3.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.7)
$pgm.puts  "fprintf(out_fd,\"x = 3.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.8)
$pgm.puts  "fprintf(out_fd,\"x = 3.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.9)
$pgm.puts  "fprintf(out_fd,\"x = 3.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cos
$pgm.puts  "fxm := cos(3.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cos,cos,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cos,cos,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = tan apfunc = tan"
$pgm.puts "fprintf(out_fd,\"maplefunc = tan apfunc = tan\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = tan apfunc = tan\\n\");"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.0999999999999998)
$pgm.puts  "fprintf(out_fd,\"x = -0.0999999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(-0.0999999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.94289029309402e-16)
$pgm.puts  "fprintf(out_fd,\"x = 1.94289029309402e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(1.94289029309402e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tan
$pgm.puts  "fxm := tan(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tan,tan,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tan,tan,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = exp apfunc = exp"
$pgm.puts "fprintf(out_fd,\"maplefunc = exp apfunc = exp\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = exp apfunc = exp\\n\");"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.0999999999999998)
$pgm.puts  "fprintf(out_fd,\"x = -0.0999999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-0.0999999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.94289029309402e-16)
$pgm.puts  "fprintf(out_fd,\"x = 1.94289029309402e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(1.94289029309402e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = exp apfunc = exp"
$pgm.puts "fprintf(out_fd,\"maplefunc = exp apfunc = exp\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = exp apfunc = exp\\n\");"
x = c(-100.5)
$pgm.puts  "fprintf(out_fd,\"x = -100.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-100.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-90.4)
$pgm.puts  "fprintf(out_fd,\"x = -90.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-90.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-80.3)
$pgm.puts  "fprintf(out_fd,\"x = -80.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-80.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-80.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-80.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-70.2)
$pgm.puts  "fprintf(out_fd,\"x = -70.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-70.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-70.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-70.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-60.1)
$pgm.puts  "fprintf(out_fd,\"x = -60.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-60.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-60.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-60.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-50.0)
$pgm.puts  "fprintf(out_fd,\"x = -50.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-50.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-50.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-50.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-39.9)
$pgm.puts  "fprintf(out_fd,\"x = -39.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-39.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-39.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-39.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-29.8)
$pgm.puts  "fprintf(out_fd,\"x = -29.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-29.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.7)
$pgm.puts  "fprintf(out_fd,\"x = -19.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-19.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-19.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-19.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(-9.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.499999999999989)
$pgm.puts  "fprintf(out_fd,\"x = 0.499999999999989\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(0.499999999999989);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,0.499999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,0.499999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(10.6)
$pgm.puts  "fprintf(out_fd,\"x = 10.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(10.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,10.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,10.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(20.7)
$pgm.puts  "fprintf(out_fd,\"x = 20.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(20.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,20.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,20.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(30.8)
$pgm.puts  "fprintf(out_fd,\"x = 30.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(30.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,30.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,30.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(40.9)
$pgm.puts  "fprintf(out_fd,\"x = 40.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(40.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,40.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,40.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(51.0)
$pgm.puts  "fprintf(out_fd,\"x = 51.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(51.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,51.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,51.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(61.1)
$pgm.puts  "fprintf(out_fd,\"x = 61.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(61.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,61.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,61.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(71.2)
$pgm.puts  "fprintf(out_fd,\"x = 71.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(71.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,71.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,71.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(81.3)
$pgm.puts  "fprintf(out_fd,\"x = 81.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(81.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,81.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,81.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(91.4)
$pgm.puts  "fprintf(out_fd,\"x = 91.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.exp
$pgm.puts  "fxm := exp(91.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(exp,exp,91.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(exp,exp,91.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = arcsin apfunc = asin"
$pgm.puts "fprintf(out_fd,\"maplefunc = arcsin apfunc = asin\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = arcsin apfunc = asin\\n\");"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.1)
$pgm.puts  "fprintf(out_fd,\"x = -0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.38777878078145e-16)
$pgm.puts  "fprintf(out_fd,\"x = -1.38777878078145e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(-1.38777878078145e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.0999999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 0.0999999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.0999999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.asin
$pgm.puts  "fxm := arcsin(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arcsin,asin,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arcsin,asin,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = arccos apfunc = acos"
$pgm.puts "fprintf(out_fd,\"maplefunc = arccos apfunc = acos\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = arccos apfunc = acos\\n\");"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.1)
$pgm.puts  "fprintf(out_fd,\"x = -0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.38777878078145e-16)
$pgm.puts  "fprintf(out_fd,\"x = -1.38777878078145e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(-1.38777878078145e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.0999999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 0.0999999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.0999999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.acos
$pgm.puts  "fxm := arccos(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arccos,acos,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arccos,acos,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = arctan apfunc = atan"
$pgm.puts "fprintf(out_fd,\"maplefunc = arctan apfunc = atan\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = arctan apfunc = atan\\n\");"
x = c(-10.5)
$pgm.puts  "fprintf(out_fd,\"x = -10.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-10.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.4)
$pgm.puts  "fprintf(out_fd,\"x = -10.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-10.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.3)
$pgm.puts  "fprintf(out_fd,\"x = -10.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-10.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.2)
$pgm.puts  "fprintf(out_fd,\"x = -10.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-10.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.1)
$pgm.puts  "fprintf(out_fd,\"x = -10.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-10.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.0)
$pgm.puts  "fprintf(out_fd,\"x = -10.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-10.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.9)
$pgm.puts  "fprintf(out_fd,\"x = -9.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.8)
$pgm.puts  "fprintf(out_fd,\"x = -9.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.7)
$pgm.puts  "fprintf(out_fd,\"x = -9.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.6)
$pgm.puts  "fprintf(out_fd,\"x = -9.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.5)
$pgm.puts  "fprintf(out_fd,\"x = -9.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.4)
$pgm.puts  "fprintf(out_fd,\"x = -9.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.3)
$pgm.puts  "fprintf(out_fd,\"x = -9.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.2)
$pgm.puts  "fprintf(out_fd,\"x = -9.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.1)
$pgm.puts  "fprintf(out_fd,\"x = -9.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-9.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-9.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -8.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-8.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-8.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.20000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.20000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.20000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.10000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.10000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.10000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.00000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -7.00000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-7.00000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-7.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -6.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.80000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -6.80000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.80000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.70000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -6.70000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.70000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.60000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -6.60000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.60000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.50000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -6.50000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.50000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.40000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -6.40000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.40000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -6.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.20000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -6.20000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.20000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.10000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -6.10000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.10000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-6.00000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -6.00000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-6.00000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-6.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.90000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.90000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.90000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.80000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.80000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.80000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.70000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.70000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.70000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.60000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.60000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.60000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.50000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.50000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.50000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.40000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.40000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.40000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.30000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.30000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.30000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.20000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.20000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.20000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.10000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.10000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.10000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-5.00000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -5.00000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-5.00000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-5.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.90000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.90000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.90000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.80000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.80000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.80000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.70000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.70000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.70000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.60000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.60000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.60000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.50000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.50000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.50000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.40000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.40000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.40000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.30000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.30000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.30000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.20000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.20000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.20000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.10000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.10000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.10000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-4.00000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -4.00000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-4.00000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-4.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.90000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.90000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.90000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.80000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.80000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.80000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.70000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.70000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.70000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.60000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.60000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.60000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.50000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.50000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.50000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.40000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.40000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.40000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.30000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.30000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.30000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.20000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.20000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.20000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.10000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.10000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.10000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-3.00000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -3.00000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-3.00000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-3.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.90000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.90000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.90000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.80000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.80000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.80000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.70000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.70000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.70000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.60000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.60000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.60000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.50000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.50000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.50000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.40000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.40000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.40000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.30000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.30000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.30000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.20000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.20000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.20000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.10000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.10000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.10000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-2.00000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -2.00000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-2.00000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-2.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.90000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.90000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.90000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.80000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.80000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.80000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.70000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.70000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.70000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.60000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.60000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.60000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.50000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.50000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.50000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.40000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.40000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.40000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.30000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.30000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.30000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.20000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.20000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.20000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.10000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.10000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.10000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.00000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -1.00000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-1.00000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-1.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.90000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -0.90000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-0.90000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.80000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -0.80000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-0.80000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.70000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -0.70000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-0.70000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.600000000000021)
$pgm.puts  "fprintf(out_fd,\"x = -0.600000000000021\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.atan
$pgm.puts  "fxm := arctan(-0.600000000000021);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(arctan,atan,-0.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = ln apfunc = log"
$pgm.puts "fprintf(out_fd,\"maplefunc = ln apfunc = log\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = ln apfunc = log\\n\");"
x = c(0.01)
$pgm.puts  "fprintf(out_fd,\"x = 0.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.11)
$pgm.puts  "fprintf(out_fd,\"x = 0.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.21)
$pgm.puts  "fprintf(out_fd,\"x = 0.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.31)
$pgm.puts  "fprintf(out_fd,\"x = 0.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.41)
$pgm.puts  "fprintf(out_fd,\"x = 0.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.51)
$pgm.puts  "fprintf(out_fd,\"x = 0.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.61)
$pgm.puts  "fprintf(out_fd,\"x = 0.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.71)
$pgm.puts  "fprintf(out_fd,\"x = 0.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.81)
$pgm.puts  "fprintf(out_fd,\"x = 0.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.91)
$pgm.puts  "fprintf(out_fd,\"x = 0.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.01)
$pgm.puts  "fprintf(out_fd,\"x = 1.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.11)
$pgm.puts  "fprintf(out_fd,\"x = 1.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.21)
$pgm.puts  "fprintf(out_fd,\"x = 1.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.31)
$pgm.puts  "fprintf(out_fd,\"x = 1.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.41)
$pgm.puts  "fprintf(out_fd,\"x = 1.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.51)
$pgm.puts  "fprintf(out_fd,\"x = 1.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.61)
$pgm.puts  "fprintf(out_fd,\"x = 1.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.71)
$pgm.puts  "fprintf(out_fd,\"x = 1.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.81)
$pgm.puts  "fprintf(out_fd,\"x = 1.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.91)
$pgm.puts  "fprintf(out_fd,\"x = 1.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.01)
$pgm.puts  "fprintf(out_fd,\"x = 2.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.11)
$pgm.puts  "fprintf(out_fd,\"x = 2.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.21)
$pgm.puts  "fprintf(out_fd,\"x = 2.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.31)
$pgm.puts  "fprintf(out_fd,\"x = 2.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.41)
$pgm.puts  "fprintf(out_fd,\"x = 2.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.51)
$pgm.puts  "fprintf(out_fd,\"x = 2.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.61)
$pgm.puts  "fprintf(out_fd,\"x = 2.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.71)
$pgm.puts  "fprintf(out_fd,\"x = 2.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.81)
$pgm.puts  "fprintf(out_fd,\"x = 2.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.91)
$pgm.puts  "fprintf(out_fd,\"x = 2.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.01)
$pgm.puts  "fprintf(out_fd,\"x = 3.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.11)
$pgm.puts  "fprintf(out_fd,\"x = 3.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.21)
$pgm.puts  "fprintf(out_fd,\"x = 3.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.31)
$pgm.puts  "fprintf(out_fd,\"x = 3.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.41)
$pgm.puts  "fprintf(out_fd,\"x = 3.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.51)
$pgm.puts  "fprintf(out_fd,\"x = 3.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.61)
$pgm.puts  "fprintf(out_fd,\"x = 3.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.71)
$pgm.puts  "fprintf(out_fd,\"x = 3.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.81)
$pgm.puts  "fprintf(out_fd,\"x = 3.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.91)
$pgm.puts  "fprintf(out_fd,\"x = 3.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.01)
$pgm.puts  "fprintf(out_fd,\"x = 4.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.11)
$pgm.puts  "fprintf(out_fd,\"x = 4.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.21)
$pgm.puts  "fprintf(out_fd,\"x = 4.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.31)
$pgm.puts  "fprintf(out_fd,\"x = 4.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.41)
$pgm.puts  "fprintf(out_fd,\"x = 4.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.51)
$pgm.puts  "fprintf(out_fd,\"x = 4.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.61)
$pgm.puts  "fprintf(out_fd,\"x = 4.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.71)
$pgm.puts  "fprintf(out_fd,\"x = 4.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.81)
$pgm.puts  "fprintf(out_fd,\"x = 4.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.91)
$pgm.puts  "fprintf(out_fd,\"x = 4.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.01)
$pgm.puts  "fprintf(out_fd,\"x = 5.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.11)
$pgm.puts  "fprintf(out_fd,\"x = 5.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.21)
$pgm.puts  "fprintf(out_fd,\"x = 5.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.31)
$pgm.puts  "fprintf(out_fd,\"x = 5.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.41)
$pgm.puts  "fprintf(out_fd,\"x = 5.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.51)
$pgm.puts  "fprintf(out_fd,\"x = 5.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.61)
$pgm.puts  "fprintf(out_fd,\"x = 5.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.71)
$pgm.puts  "fprintf(out_fd,\"x = 5.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.81)
$pgm.puts  "fprintf(out_fd,\"x = 5.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.91)
$pgm.puts  "fprintf(out_fd,\"x = 5.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.01)
$pgm.puts  "fprintf(out_fd,\"x = 6.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.20999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.20999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.20999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.30999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.30999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.30999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.40999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.40999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.40999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.50999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.50999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.50999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.60999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.60999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.60999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.70999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.70999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.70999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.80999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.80999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.80999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.90999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.90999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.90999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.00999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.00999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.00999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.20999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.20999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.20999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.30999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.30999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.30999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.40999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.40999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.40999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.50999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.50999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.50999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.60999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.60999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.60999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.70999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.70999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.70999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.80999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.80999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.80999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.90999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.90999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.90999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.00999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.00999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.00999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.20999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.20999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.20999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.30999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.30999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.30999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.40999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.40999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.40999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.50999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.50999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.50999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.60999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.60999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.60999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.70999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.70999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.70999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.80999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.80999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.80999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.90999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.90999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.90999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.00999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 9.00999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.00999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 9.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.20999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.20999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.20999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.30999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.30999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.30999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.40999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.40999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.40999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.50999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.50999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.50999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.60999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.60999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.60999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.70999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.70999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.70999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.80999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.80999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.80999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.90999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.90999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(9.90999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = ln apfunc = log"
$pgm.puts "fprintf(out_fd,\"maplefunc = ln apfunc = log\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = ln apfunc = log\\n\");"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.3)
$pgm.puts  "fprintf(out_fd,\"x = 2.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(2.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.4)
$pgm.puts  "fprintf(out_fd,\"x = 3.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(3.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.5)
$pgm.puts  "fprintf(out_fd,\"x = 4.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(4.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.6)
$pgm.puts  "fprintf(out_fd,\"x = 5.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(5.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.7)
$pgm.puts  "fprintf(out_fd,\"x = 6.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(6.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.8)
$pgm.puts  "fprintf(out_fd,\"x = 7.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(7.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.9)
$pgm.puts  "fprintf(out_fd,\"x = 8.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(8.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(10.0)
$pgm.puts  "fprintf(out_fd,\"x = 10.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(10.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(11.1)
$pgm.puts  "fprintf(out_fd,\"x = 11.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(11.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(12.2)
$pgm.puts  "fprintf(out_fd,\"x = 12.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(12.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(13.3)
$pgm.puts  "fprintf(out_fd,\"x = 13.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(13.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(14.4)
$pgm.puts  "fprintf(out_fd,\"x = 14.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(14.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(15.5)
$pgm.puts  "fprintf(out_fd,\"x = 15.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(15.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(16.6)
$pgm.puts  "fprintf(out_fd,\"x = 16.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(16.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(17.7)
$pgm.puts  "fprintf(out_fd,\"x = 17.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(17.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(18.8)
$pgm.puts  "fprintf(out_fd,\"x = 18.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(18.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(19.9)
$pgm.puts  "fprintf(out_fd,\"x = 19.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(19.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(21.0)
$pgm.puts  "fprintf(out_fd,\"x = 21.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(21.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(22.1)
$pgm.puts  "fprintf(out_fd,\"x = 22.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(22.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(23.2)
$pgm.puts  "fprintf(out_fd,\"x = 23.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(23.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(24.3)
$pgm.puts  "fprintf(out_fd,\"x = 24.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(24.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(25.4)
$pgm.puts  "fprintf(out_fd,\"x = 25.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(25.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(26.5)
$pgm.puts  "fprintf(out_fd,\"x = 26.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(26.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(27.6)
$pgm.puts  "fprintf(out_fd,\"x = 27.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(27.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(28.7)
$pgm.puts  "fprintf(out_fd,\"x = 28.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(28.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(29.8)
$pgm.puts  "fprintf(out_fd,\"x = 29.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(29.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(30.9)
$pgm.puts  "fprintf(out_fd,\"x = 30.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(30.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(32.0)
$pgm.puts  "fprintf(out_fd,\"x = 32.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(32.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(33.1)
$pgm.puts  "fprintf(out_fd,\"x = 33.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(33.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(34.2)
$pgm.puts  "fprintf(out_fd,\"x = 34.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(34.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(35.3)
$pgm.puts  "fprintf(out_fd,\"x = 35.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(35.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(36.4)
$pgm.puts  "fprintf(out_fd,\"x = 36.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(36.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(37.5)
$pgm.puts  "fprintf(out_fd,\"x = 37.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(37.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(38.6)
$pgm.puts  "fprintf(out_fd,\"x = 38.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(38.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(39.7)
$pgm.puts  "fprintf(out_fd,\"x = 39.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(39.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(40.8)
$pgm.puts  "fprintf(out_fd,\"x = 40.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(40.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(41.9)
$pgm.puts  "fprintf(out_fd,\"x = 41.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(41.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(43.0)
$pgm.puts  "fprintf(out_fd,\"x = 43.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(43.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(44.1)
$pgm.puts  "fprintf(out_fd,\"x = 44.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(44.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(45.2)
$pgm.puts  "fprintf(out_fd,\"x = 45.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(45.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(46.3)
$pgm.puts  "fprintf(out_fd,\"x = 46.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(46.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(47.4)
$pgm.puts  "fprintf(out_fd,\"x = 47.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(47.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(48.5)
$pgm.puts  "fprintf(out_fd,\"x = 48.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(48.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(49.6)
$pgm.puts  "fprintf(out_fd,\"x = 49.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(49.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(50.7)
$pgm.puts  "fprintf(out_fd,\"x = 50.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(50.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(51.8)
$pgm.puts  "fprintf(out_fd,\"x = 51.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(51.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(52.9)
$pgm.puts  "fprintf(out_fd,\"x = 52.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(52.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(54.0)
$pgm.puts  "fprintf(out_fd,\"x = 54.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(54.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(55.1)
$pgm.puts  "fprintf(out_fd,\"x = 55.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(55.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(56.2)
$pgm.puts  "fprintf(out_fd,\"x = 56.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(56.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(57.3)
$pgm.puts  "fprintf(out_fd,\"x = 57.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(57.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(58.4)
$pgm.puts  "fprintf(out_fd,\"x = 58.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(58.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(59.5)
$pgm.puts  "fprintf(out_fd,\"x = 59.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(59.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(60.6000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 60.6000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(60.6000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(61.7000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 61.7000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(61.7000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(62.8000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 62.8000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(62.8000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(63.9000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 63.9000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(63.9000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(65.0000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 65.0000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(65.0000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(66.1000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 66.1000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(66.1000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(67.2)
$pgm.puts  "fprintf(out_fd,\"x = 67.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(67.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(68.3)
$pgm.puts  "fprintf(out_fd,\"x = 68.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(68.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(69.4)
$pgm.puts  "fprintf(out_fd,\"x = 69.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(69.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(70.5)
$pgm.puts  "fprintf(out_fd,\"x = 70.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(70.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(71.6)
$pgm.puts  "fprintf(out_fd,\"x = 71.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(71.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(72.7)
$pgm.puts  "fprintf(out_fd,\"x = 72.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(72.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(73.8)
$pgm.puts  "fprintf(out_fd,\"x = 73.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(73.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(74.9)
$pgm.puts  "fprintf(out_fd,\"x = 74.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(74.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(76.0)
$pgm.puts  "fprintf(out_fd,\"x = 76.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(76.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(77.1)
$pgm.puts  "fprintf(out_fd,\"x = 77.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(77.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(78.2)
$pgm.puts  "fprintf(out_fd,\"x = 78.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(78.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(79.3)
$pgm.puts  "fprintf(out_fd,\"x = 79.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(79.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(80.4)
$pgm.puts  "fprintf(out_fd,\"x = 80.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(80.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(81.5)
$pgm.puts  "fprintf(out_fd,\"x = 81.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(81.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(82.6)
$pgm.puts  "fprintf(out_fd,\"x = 82.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(82.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(83.7)
$pgm.puts  "fprintf(out_fd,\"x = 83.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(83.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(84.8)
$pgm.puts  "fprintf(out_fd,\"x = 84.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(84.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(85.8999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 85.8999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(85.8999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(86.9999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 86.9999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(86.9999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(88.0999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 88.0999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(88.0999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(89.1999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 89.1999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(89.1999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(90.2999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 90.2999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(90.2999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(91.3999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 91.3999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(91.3999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(92.4999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 92.4999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(92.4999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(93.5999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 93.5999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(93.5999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(94.6999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 94.6999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(94.6999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(95.7999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 95.7999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(95.7999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(96.8999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 96.8999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(96.8999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(97.9999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 97.9999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(97.9999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(99.0999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 99.0999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(99.0999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(100.2)
$pgm.puts  "fprintf(out_fd,\"x = 100.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log
$pgm.puts  "fxm := ln(100.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(ln,log,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(ln,log,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = log10 apfunc = log10"
$pgm.puts "fprintf(out_fd,\"maplefunc = log10 apfunc = log10\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = log10 apfunc = log10\\n\");"
x = c(0.01)
$pgm.puts  "fprintf(out_fd,\"x = 0.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.11)
$pgm.puts  "fprintf(out_fd,\"x = 0.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.21)
$pgm.puts  "fprintf(out_fd,\"x = 0.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.31)
$pgm.puts  "fprintf(out_fd,\"x = 0.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.41)
$pgm.puts  "fprintf(out_fd,\"x = 0.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.51)
$pgm.puts  "fprintf(out_fd,\"x = 0.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.61)
$pgm.puts  "fprintf(out_fd,\"x = 0.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.71)
$pgm.puts  "fprintf(out_fd,\"x = 0.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.81)
$pgm.puts  "fprintf(out_fd,\"x = 0.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.91)
$pgm.puts  "fprintf(out_fd,\"x = 0.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.01)
$pgm.puts  "fprintf(out_fd,\"x = 1.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.11)
$pgm.puts  "fprintf(out_fd,\"x = 1.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.21)
$pgm.puts  "fprintf(out_fd,\"x = 1.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.31)
$pgm.puts  "fprintf(out_fd,\"x = 1.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.41)
$pgm.puts  "fprintf(out_fd,\"x = 1.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.51)
$pgm.puts  "fprintf(out_fd,\"x = 1.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.61)
$pgm.puts  "fprintf(out_fd,\"x = 1.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.71)
$pgm.puts  "fprintf(out_fd,\"x = 1.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.81)
$pgm.puts  "fprintf(out_fd,\"x = 1.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.91)
$pgm.puts  "fprintf(out_fd,\"x = 1.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.01)
$pgm.puts  "fprintf(out_fd,\"x = 2.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.11)
$pgm.puts  "fprintf(out_fd,\"x = 2.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.21)
$pgm.puts  "fprintf(out_fd,\"x = 2.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.31)
$pgm.puts  "fprintf(out_fd,\"x = 2.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.41)
$pgm.puts  "fprintf(out_fd,\"x = 2.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.51)
$pgm.puts  "fprintf(out_fd,\"x = 2.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.61)
$pgm.puts  "fprintf(out_fd,\"x = 2.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.71)
$pgm.puts  "fprintf(out_fd,\"x = 2.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.81)
$pgm.puts  "fprintf(out_fd,\"x = 2.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.91)
$pgm.puts  "fprintf(out_fd,\"x = 2.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.01)
$pgm.puts  "fprintf(out_fd,\"x = 3.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.11)
$pgm.puts  "fprintf(out_fd,\"x = 3.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.21)
$pgm.puts  "fprintf(out_fd,\"x = 3.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.31)
$pgm.puts  "fprintf(out_fd,\"x = 3.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.41)
$pgm.puts  "fprintf(out_fd,\"x = 3.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.51)
$pgm.puts  "fprintf(out_fd,\"x = 3.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.61)
$pgm.puts  "fprintf(out_fd,\"x = 3.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.71)
$pgm.puts  "fprintf(out_fd,\"x = 3.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.81)
$pgm.puts  "fprintf(out_fd,\"x = 3.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.91)
$pgm.puts  "fprintf(out_fd,\"x = 3.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.01)
$pgm.puts  "fprintf(out_fd,\"x = 4.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.11)
$pgm.puts  "fprintf(out_fd,\"x = 4.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.21)
$pgm.puts  "fprintf(out_fd,\"x = 4.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.31)
$pgm.puts  "fprintf(out_fd,\"x = 4.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.41)
$pgm.puts  "fprintf(out_fd,\"x = 4.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.51)
$pgm.puts  "fprintf(out_fd,\"x = 4.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.61)
$pgm.puts  "fprintf(out_fd,\"x = 4.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.71)
$pgm.puts  "fprintf(out_fd,\"x = 4.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.81)
$pgm.puts  "fprintf(out_fd,\"x = 4.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.91)
$pgm.puts  "fprintf(out_fd,\"x = 4.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.01)
$pgm.puts  "fprintf(out_fd,\"x = 5.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.11)
$pgm.puts  "fprintf(out_fd,\"x = 5.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.21)
$pgm.puts  "fprintf(out_fd,\"x = 5.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.31)
$pgm.puts  "fprintf(out_fd,\"x = 5.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.41)
$pgm.puts  "fprintf(out_fd,\"x = 5.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.51)
$pgm.puts  "fprintf(out_fd,\"x = 5.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.61)
$pgm.puts  "fprintf(out_fd,\"x = 5.61\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.61);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.71)
$pgm.puts  "fprintf(out_fd,\"x = 5.71\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.71);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.81)
$pgm.puts  "fprintf(out_fd,\"x = 5.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.91)
$pgm.puts  "fprintf(out_fd,\"x = 5.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.01)
$pgm.puts  "fprintf(out_fd,\"x = 6.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.20999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.20999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.20999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.30999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.30999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.30999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.40999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.40999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.40999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.50999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.50999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.50999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.60999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.60999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.60999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.70999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.70999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.70999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.80999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.80999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.80999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.90999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 6.90999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.90999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.00999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.00999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.00999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.20999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.20999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.20999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.30999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.30999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.30999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.40999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.40999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.40999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.50999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.50999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.50999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.60999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.60999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.60999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.70999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.70999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.70999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.80999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.80999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.80999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.90999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 7.90999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.90999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.00999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.00999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.00999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.20999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.20999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.20999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.30999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.30999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.30999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.40999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.40999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.40999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.50999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.50999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.50999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.60999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.60999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.60999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.70999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.70999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.70999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.80999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.80999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.80999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.90999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 8.90999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.90999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.00999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 9.00999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.00999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.10999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 9.10999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.10999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.20999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.20999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.20999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.30999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.30999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.30999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.40999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.40999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.40999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.50999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.50999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.50999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.60999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.60999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.60999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.70999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.70999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.70999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.80999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.80999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.80999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(9.90999999999998)
$pgm.puts  "fprintf(out_fd,\"x = 9.90999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(9.90999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = log10 apfunc = log10"
$pgm.puts "fprintf(out_fd,\"maplefunc = log10 apfunc = log10\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = log10 apfunc = log10\\n\");"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(2.3)
$pgm.puts  "fprintf(out_fd,\"x = 2.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(2.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(3.4)
$pgm.puts  "fprintf(out_fd,\"x = 3.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(3.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(4.5)
$pgm.puts  "fprintf(out_fd,\"x = 4.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(4.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(5.6)
$pgm.puts  "fprintf(out_fd,\"x = 5.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(5.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(6.7)
$pgm.puts  "fprintf(out_fd,\"x = 6.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(6.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(7.8)
$pgm.puts  "fprintf(out_fd,\"x = 7.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(7.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(8.9)
$pgm.puts  "fprintf(out_fd,\"x = 8.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(8.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(10.0)
$pgm.puts  "fprintf(out_fd,\"x = 10.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(10.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(11.1)
$pgm.puts  "fprintf(out_fd,\"x = 11.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(11.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(12.2)
$pgm.puts  "fprintf(out_fd,\"x = 12.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(12.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(13.3)
$pgm.puts  "fprintf(out_fd,\"x = 13.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(13.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(14.4)
$pgm.puts  "fprintf(out_fd,\"x = 14.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(14.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(15.5)
$pgm.puts  "fprintf(out_fd,\"x = 15.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(15.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(16.6)
$pgm.puts  "fprintf(out_fd,\"x = 16.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(16.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(17.7)
$pgm.puts  "fprintf(out_fd,\"x = 17.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(17.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(18.8)
$pgm.puts  "fprintf(out_fd,\"x = 18.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(18.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(19.9)
$pgm.puts  "fprintf(out_fd,\"x = 19.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(19.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(21.0)
$pgm.puts  "fprintf(out_fd,\"x = 21.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(21.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(22.1)
$pgm.puts  "fprintf(out_fd,\"x = 22.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(22.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(23.2)
$pgm.puts  "fprintf(out_fd,\"x = 23.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(23.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(24.3)
$pgm.puts  "fprintf(out_fd,\"x = 24.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(24.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(25.4)
$pgm.puts  "fprintf(out_fd,\"x = 25.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(25.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(26.5)
$pgm.puts  "fprintf(out_fd,\"x = 26.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(26.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(27.6)
$pgm.puts  "fprintf(out_fd,\"x = 27.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(27.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(28.7)
$pgm.puts  "fprintf(out_fd,\"x = 28.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(28.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(29.8)
$pgm.puts  "fprintf(out_fd,\"x = 29.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(29.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(30.9)
$pgm.puts  "fprintf(out_fd,\"x = 30.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(30.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(32.0)
$pgm.puts  "fprintf(out_fd,\"x = 32.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(32.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(33.1)
$pgm.puts  "fprintf(out_fd,\"x = 33.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(33.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(34.2)
$pgm.puts  "fprintf(out_fd,\"x = 34.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(34.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(35.3)
$pgm.puts  "fprintf(out_fd,\"x = 35.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(35.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(36.4)
$pgm.puts  "fprintf(out_fd,\"x = 36.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(36.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(37.5)
$pgm.puts  "fprintf(out_fd,\"x = 37.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(37.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(38.6)
$pgm.puts  "fprintf(out_fd,\"x = 38.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(38.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(39.7)
$pgm.puts  "fprintf(out_fd,\"x = 39.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(39.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(40.8)
$pgm.puts  "fprintf(out_fd,\"x = 40.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(40.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(41.9)
$pgm.puts  "fprintf(out_fd,\"x = 41.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(41.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(43.0)
$pgm.puts  "fprintf(out_fd,\"x = 43.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(43.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(44.1)
$pgm.puts  "fprintf(out_fd,\"x = 44.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(44.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(45.2)
$pgm.puts  "fprintf(out_fd,\"x = 45.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(45.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(46.3)
$pgm.puts  "fprintf(out_fd,\"x = 46.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(46.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(47.4)
$pgm.puts  "fprintf(out_fd,\"x = 47.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(47.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(48.5)
$pgm.puts  "fprintf(out_fd,\"x = 48.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(48.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(49.6)
$pgm.puts  "fprintf(out_fd,\"x = 49.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(49.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(50.7)
$pgm.puts  "fprintf(out_fd,\"x = 50.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(50.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(51.8)
$pgm.puts  "fprintf(out_fd,\"x = 51.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(51.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(52.9)
$pgm.puts  "fprintf(out_fd,\"x = 52.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(52.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(54.0)
$pgm.puts  "fprintf(out_fd,\"x = 54.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(54.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(55.1)
$pgm.puts  "fprintf(out_fd,\"x = 55.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(55.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(56.2)
$pgm.puts  "fprintf(out_fd,\"x = 56.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(56.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(57.3)
$pgm.puts  "fprintf(out_fd,\"x = 57.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(57.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(58.4)
$pgm.puts  "fprintf(out_fd,\"x = 58.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(58.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(59.5)
$pgm.puts  "fprintf(out_fd,\"x = 59.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(59.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(60.6000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 60.6000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(60.6000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(61.7000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 61.7000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(61.7000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(62.8000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 62.8000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(62.8000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(63.9000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 63.9000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(63.9000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(65.0000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 65.0000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(65.0000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(66.1000000000001)
$pgm.puts  "fprintf(out_fd,\"x = 66.1000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(66.1000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(67.2)
$pgm.puts  "fprintf(out_fd,\"x = 67.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(67.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(68.3)
$pgm.puts  "fprintf(out_fd,\"x = 68.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(68.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(69.4)
$pgm.puts  "fprintf(out_fd,\"x = 69.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(69.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(70.5)
$pgm.puts  "fprintf(out_fd,\"x = 70.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(70.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(71.6)
$pgm.puts  "fprintf(out_fd,\"x = 71.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(71.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(72.7)
$pgm.puts  "fprintf(out_fd,\"x = 72.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(72.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(73.8)
$pgm.puts  "fprintf(out_fd,\"x = 73.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(73.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(74.9)
$pgm.puts  "fprintf(out_fd,\"x = 74.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(74.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(76.0)
$pgm.puts  "fprintf(out_fd,\"x = 76.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(76.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(77.1)
$pgm.puts  "fprintf(out_fd,\"x = 77.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(77.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(78.2)
$pgm.puts  "fprintf(out_fd,\"x = 78.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(78.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(79.3)
$pgm.puts  "fprintf(out_fd,\"x = 79.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(79.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(80.4)
$pgm.puts  "fprintf(out_fd,\"x = 80.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(80.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(81.5)
$pgm.puts  "fprintf(out_fd,\"x = 81.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(81.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(82.6)
$pgm.puts  "fprintf(out_fd,\"x = 82.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(82.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(83.7)
$pgm.puts  "fprintf(out_fd,\"x = 83.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(83.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(84.8)
$pgm.puts  "fprintf(out_fd,\"x = 84.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(84.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(85.8999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 85.8999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(85.8999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(86.9999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 86.9999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(86.9999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(88.0999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 88.0999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(88.0999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(89.1999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 89.1999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(89.1999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(90.2999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 90.2999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(90.2999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(91.3999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 91.3999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(91.3999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(92.4999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 92.4999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(92.4999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(93.5999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 93.5999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(93.5999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(94.6999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 94.6999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(94.6999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(95.7999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 95.7999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(95.7999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(96.8999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 96.8999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(96.8999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(97.9999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 97.9999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(97.9999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(99.0999999999999)
$pgm.puts  "fprintf(out_fd,\"x = 99.0999999999999\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(99.0999999999999);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(100.2)
$pgm.puts  "fprintf(out_fd,\"x = 100.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.log10
$pgm.puts  "fxm := log10(100.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(log10,log10,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(log10,log10,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = sinh apfunc = sinh"
$pgm.puts "fprintf(out_fd,\"maplefunc = sinh apfunc = sinh\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = sinh apfunc = sinh\\n\");"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.0999999999999998)
$pgm.puts  "fprintf(out_fd,\"x = -0.0999999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(-0.0999999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.94289029309402e-16)
$pgm.puts  "fprintf(out_fd,\"x = 1.94289029309402e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(1.94289029309402e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sinh
$pgm.puts  "fxm := sinh(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sinh,sinh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = cosh apfunc = cosh"
$pgm.puts "fprintf(out_fd,\"maplefunc = cosh apfunc = cosh\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = cosh apfunc = cosh\\n\");"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.0999999999999998)
$pgm.puts  "fprintf(out_fd,\"x = -0.0999999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(-0.0999999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.94289029309402e-16)
$pgm.puts  "fprintf(out_fd,\"x = 1.94289029309402e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(1.94289029309402e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.cosh
$pgm.puts  "fxm := cosh(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(cosh,cosh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = tanh apfunc = tanh"
$pgm.puts "fprintf(out_fd,\"maplefunc = tanh apfunc = tanh\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = tanh apfunc = tanh\\n\");"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.0999999999999998)
$pgm.puts  "fprintf(out_fd,\"x = -0.0999999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(-0.0999999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.94289029309402e-16)
$pgm.puts  "fprintf(out_fd,\"x = 1.94289029309402e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(1.94289029309402e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.tanh
$pgm.puts  "fxm := tanh(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(tanh,tanh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = sqrt apfunc = sqrt"
$pgm.puts "fprintf(out_fd,\"maplefunc = sqrt apfunc = sqrt\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = sqrt apfunc = sqrt\\n\");"
x = c(0.0)
$pgm.puts  "fprintf(out_fd,\"x = 0.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.sqrt
$pgm.puts  "fxm := sqrt(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(sqrt,sqrt,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = abs apfunc = abs"
$pgm.puts "fprintf(out_fd,\"maplefunc = abs apfunc = abs\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = abs apfunc = abs\\n\");"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.0999999999999998)
$pgm.puts  "fprintf(out_fd,\"x = -0.0999999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(-0.0999999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.94289029309402e-16)
$pgm.puts  "fprintf(out_fd,\"x = 1.94289029309402e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(1.94289029309402e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.abs
$pgm.puts  "fxm := abs(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(abs,abs,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(abs,abs,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = trunc apfunc = trunc"
$pgm.puts "fprintf(out_fd,\"maplefunc = trunc apfunc = trunc\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = trunc apfunc = trunc\\n\");"
x = c(-19.5)
$pgm.puts  "fprintf(out_fd,\"x = -19.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-19.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.38)
$pgm.puts  "fprintf(out_fd,\"x = -19.38\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-19.38);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.26)
$pgm.puts  "fprintf(out_fd,\"x = -19.26\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-19.26);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.14)
$pgm.puts  "fprintf(out_fd,\"x = -19.14\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-19.14);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.02)
$pgm.puts  "fprintf(out_fd,\"x = -19.02\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-19.02);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-19.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.9)
$pgm.puts  "fprintf(out_fd,\"x = -18.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.78)
$pgm.puts  "fprintf(out_fd,\"x = -18.78\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.78);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.66)
$pgm.puts  "fprintf(out_fd,\"x = -18.66\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.66);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.54)
$pgm.puts  "fprintf(out_fd,\"x = -18.54\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.54);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.42)
$pgm.puts  "fprintf(out_fd,\"x = -18.42\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.42);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.3)
$pgm.puts  "fprintf(out_fd,\"x = -18.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.18)
$pgm.puts  "fprintf(out_fd,\"x = -18.18\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.18);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.06)
$pgm.puts  "fprintf(out_fd,\"x = -18.06\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-18.06);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-18.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.94)
$pgm.puts  "fprintf(out_fd,\"x = -17.94\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.94);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.82)
$pgm.puts  "fprintf(out_fd,\"x = -17.82\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.82);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.7)
$pgm.puts  "fprintf(out_fd,\"x = -17.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.58)
$pgm.puts  "fprintf(out_fd,\"x = -17.58\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.58);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.46)
$pgm.puts  "fprintf(out_fd,\"x = -17.46\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.46);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.34)
$pgm.puts  "fprintf(out_fd,\"x = -17.34\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.34);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.22)
$pgm.puts  "fprintf(out_fd,\"x = -17.22\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.22);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.1)
$pgm.puts  "fprintf(out_fd,\"x = -17.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-17.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-17.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.98)
$pgm.puts  "fprintf(out_fd,\"x = -16.98\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.98);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.86)
$pgm.puts  "fprintf(out_fd,\"x = -16.86\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.86);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.74)
$pgm.puts  "fprintf(out_fd,\"x = -16.74\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.74);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.62)
$pgm.puts  "fprintf(out_fd,\"x = -16.62\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.62);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.5)
$pgm.puts  "fprintf(out_fd,\"x = -16.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.38)
$pgm.puts  "fprintf(out_fd,\"x = -16.38\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.38);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.26)
$pgm.puts  "fprintf(out_fd,\"x = -16.26\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.26);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.14)
$pgm.puts  "fprintf(out_fd,\"x = -16.14\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.14);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.02)
$pgm.puts  "fprintf(out_fd,\"x = -16.02\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-16.02);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-16.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.9)
$pgm.puts  "fprintf(out_fd,\"x = -15.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.78)
$pgm.puts  "fprintf(out_fd,\"x = -15.78\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.78);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.66)
$pgm.puts  "fprintf(out_fd,\"x = -15.66\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.66);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.54)
$pgm.puts  "fprintf(out_fd,\"x = -15.54\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.54);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.42)
$pgm.puts  "fprintf(out_fd,\"x = -15.42\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.42);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.3)
$pgm.puts  "fprintf(out_fd,\"x = -15.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.18)
$pgm.puts  "fprintf(out_fd,\"x = -15.18\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.18);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.06)
$pgm.puts  "fprintf(out_fd,\"x = -15.06\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-15.06);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-15.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.94)
$pgm.puts  "fprintf(out_fd,\"x = -14.94\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.94);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.82)
$pgm.puts  "fprintf(out_fd,\"x = -14.82\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.82);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.7)
$pgm.puts  "fprintf(out_fd,\"x = -14.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.58)
$pgm.puts  "fprintf(out_fd,\"x = -14.58\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.58);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.46)
$pgm.puts  "fprintf(out_fd,\"x = -14.46\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.46);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.34)
$pgm.puts  "fprintf(out_fd,\"x = -14.34\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.34);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.22)
$pgm.puts  "fprintf(out_fd,\"x = -14.22\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.22);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.1)
$pgm.puts  "fprintf(out_fd,\"x = -14.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-14.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-14.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.98)
$pgm.puts  "fprintf(out_fd,\"x = -13.98\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.98);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.86)
$pgm.puts  "fprintf(out_fd,\"x = -13.86\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.86);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.74)
$pgm.puts  "fprintf(out_fd,\"x = -13.74\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.74);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.62)
$pgm.puts  "fprintf(out_fd,\"x = -13.62\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.62);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.5)
$pgm.puts  "fprintf(out_fd,\"x = -13.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.38)
$pgm.puts  "fprintf(out_fd,\"x = -13.38\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.38);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.26)
$pgm.puts  "fprintf(out_fd,\"x = -13.26\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.26);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.14)
$pgm.puts  "fprintf(out_fd,\"x = -13.14\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.14);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.02)
$pgm.puts  "fprintf(out_fd,\"x = -13.02\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-13.02);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-13.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.9)
$pgm.puts  "fprintf(out_fd,\"x = -12.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.78)
$pgm.puts  "fprintf(out_fd,\"x = -12.78\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.78);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.66)
$pgm.puts  "fprintf(out_fd,\"x = -12.66\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.66);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.54)
$pgm.puts  "fprintf(out_fd,\"x = -12.54\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.54);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.42)
$pgm.puts  "fprintf(out_fd,\"x = -12.42\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.42);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.3)
$pgm.puts  "fprintf(out_fd,\"x = -12.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.18)
$pgm.puts  "fprintf(out_fd,\"x = -12.18\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.18);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.06)
$pgm.puts  "fprintf(out_fd,\"x = -12.06\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-12.06);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-12.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.94)
$pgm.puts  "fprintf(out_fd,\"x = -11.94\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.94);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.82)
$pgm.puts  "fprintf(out_fd,\"x = -11.82\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.82);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.7)
$pgm.puts  "fprintf(out_fd,\"x = -11.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.58)
$pgm.puts  "fprintf(out_fd,\"x = -11.58\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.58);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.46)
$pgm.puts  "fprintf(out_fd,\"x = -11.46\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.46);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.34)
$pgm.puts  "fprintf(out_fd,\"x = -11.34\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.34);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.22)
$pgm.puts  "fprintf(out_fd,\"x = -11.22\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.22);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.1)
$pgm.puts  "fprintf(out_fd,\"x = -11.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-11.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.98)
$pgm.puts  "fprintf(out_fd,\"x = -10.98\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.98);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.86)
$pgm.puts  "fprintf(out_fd,\"x = -10.86\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.86);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.74)
$pgm.puts  "fprintf(out_fd,\"x = -10.74\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.74);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.62)
$pgm.puts  "fprintf(out_fd,\"x = -10.62\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.62);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.5)
$pgm.puts  "fprintf(out_fd,\"x = -10.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.38)
$pgm.puts  "fprintf(out_fd,\"x = -10.38\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.38);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.26)
$pgm.puts  "fprintf(out_fd,\"x = -10.26\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.26);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.14)
$pgm.puts  "fprintf(out_fd,\"x = -10.14\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.14);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.02)
$pgm.puts  "fprintf(out_fd,\"x = -10.02\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-10.02);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-10.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.90000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.90000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.90000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.78000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.78000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.78000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.78000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.78000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.66000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.66000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.66000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.66000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.66000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.54000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.54000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.54000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.54000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.54000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.42000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.42000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.42000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.42000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.42000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.30000000000001)
$pgm.puts  "fprintf(out_fd,\"x = -9.30000000000001\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.30000000000001);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.18000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -9.18000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.18000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.18000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.18000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.06000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -9.06000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-9.06000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.06000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-9.06000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.94000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.94000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.94000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.94000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.94000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.82000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.82000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.82000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.82000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.82000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.70000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.70000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.70000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.58000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.58000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.58000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.46000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.46000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.46000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.34000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.34000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.34000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.34000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.34000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.22000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.22000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.22000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.22000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.22000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.10000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -8.10000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-8.10000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-8.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.98000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -7.98000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-7.98000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.98000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.98000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.86000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -7.86000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-7.86000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.86000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.86000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.74000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -7.74000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-7.74000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.74000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.74000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-7.62000000000002)
$pgm.puts  "fprintf(out_fd,\"x = -7.62000000000002\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.trunc
$pgm.puts  "fxm := trunc(-7.62000000000002);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.62000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(trunc,trunc,-7.62000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = frac apfunc = frac"
$pgm.puts "fprintf(out_fd,\"maplefunc = frac apfunc = frac\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = frac apfunc = frac\\n\");"
x = c(-19.5)
$pgm.puts  "fprintf(out_fd,\"x = -19.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-19.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.39)
$pgm.puts  "fprintf(out_fd,\"x = -19.39\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-19.39);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.28)
$pgm.puts  "fprintf(out_fd,\"x = -19.28\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-19.28);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.17)
$pgm.puts  "fprintf(out_fd,\"x = -19.17\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-19.17);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-19.06)
$pgm.puts  "fprintf(out_fd,\"x = -19.06\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-19.06);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-19.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.95)
$pgm.puts  "fprintf(out_fd,\"x = -18.95\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.95);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.95,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.95,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.84)
$pgm.puts  "fprintf(out_fd,\"x = -18.84\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.84);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.84,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.84,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.73)
$pgm.puts  "fprintf(out_fd,\"x = -18.73\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.73);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.73,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.73,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.62)
$pgm.puts  "fprintf(out_fd,\"x = -18.62\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.62);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.51)
$pgm.puts  "fprintf(out_fd,\"x = -18.51\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.51);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.4)
$pgm.puts  "fprintf(out_fd,\"x = -18.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.29)
$pgm.puts  "fprintf(out_fd,\"x = -18.29\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.29);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.29,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.29,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.18)
$pgm.puts  "fprintf(out_fd,\"x = -18.18\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.18);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-18.07)
$pgm.puts  "fprintf(out_fd,\"x = -18.07\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-18.07);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.07,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-18.07,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.96)
$pgm.puts  "fprintf(out_fd,\"x = -17.96\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.96);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.96,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.96,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.85)
$pgm.puts  "fprintf(out_fd,\"x = -17.85\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.85);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.85,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.85,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.74)
$pgm.puts  "fprintf(out_fd,\"x = -17.74\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.74);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.63)
$pgm.puts  "fprintf(out_fd,\"x = -17.63\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.63);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.63,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.63,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.52)
$pgm.puts  "fprintf(out_fd,\"x = -17.52\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.52);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.52,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.52,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.41)
$pgm.puts  "fprintf(out_fd,\"x = -17.41\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.41);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.3)
$pgm.puts  "fprintf(out_fd,\"x = -17.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.19)
$pgm.puts  "fprintf(out_fd,\"x = -17.19\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.19);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.19,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.19,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-17.08)
$pgm.puts  "fprintf(out_fd,\"x = -17.08\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-17.08);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.08,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-17.08,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.97)
$pgm.puts  "fprintf(out_fd,\"x = -16.97\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.97);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.97,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.97,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.86)
$pgm.puts  "fprintf(out_fd,\"x = -16.86\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.86);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.75)
$pgm.puts  "fprintf(out_fd,\"x = -16.75\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.75);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.75,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.75,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.64)
$pgm.puts  "fprintf(out_fd,\"x = -16.64\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.64);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.64,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.64,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.53)
$pgm.puts  "fprintf(out_fd,\"x = -16.53\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.53);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.53,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.53,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.42)
$pgm.puts  "fprintf(out_fd,\"x = -16.42\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.42);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.31)
$pgm.puts  "fprintf(out_fd,\"x = -16.31\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.31);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.2)
$pgm.puts  "fprintf(out_fd,\"x = -16.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-16.09)
$pgm.puts  "fprintf(out_fd,\"x = -16.09\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-16.09);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.09,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-16.09,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.98)
$pgm.puts  "fprintf(out_fd,\"x = -15.98\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.98);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.87)
$pgm.puts  "fprintf(out_fd,\"x = -15.87\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.87);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.87,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.87,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.76)
$pgm.puts  "fprintf(out_fd,\"x = -15.76\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.76);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.76,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.76,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.65)
$pgm.puts  "fprintf(out_fd,\"x = -15.65\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.65);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.65,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.65,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.54)
$pgm.puts  "fprintf(out_fd,\"x = -15.54\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.54);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.43)
$pgm.puts  "fprintf(out_fd,\"x = -15.43\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.43);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.43,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.43,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.32)
$pgm.puts  "fprintf(out_fd,\"x = -15.32\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.32);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.32,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.32,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.21)
$pgm.puts  "fprintf(out_fd,\"x = -15.21\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.21);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-15.1)
$pgm.puts  "fprintf(out_fd,\"x = -15.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-15.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-15.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.99)
$pgm.puts  "fprintf(out_fd,\"x = -14.99\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.99);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.99,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.99,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.88)
$pgm.puts  "fprintf(out_fd,\"x = -14.88\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.88);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.88,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.88,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.77)
$pgm.puts  "fprintf(out_fd,\"x = -14.77\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.77);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.77,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.77,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.66)
$pgm.puts  "fprintf(out_fd,\"x = -14.66\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.66);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.55)
$pgm.puts  "fprintf(out_fd,\"x = -14.55\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.55);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.55,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.55,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.44)
$pgm.puts  "fprintf(out_fd,\"x = -14.44\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.44);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.44,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.44,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.33)
$pgm.puts  "fprintf(out_fd,\"x = -14.33\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.33);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.33,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.33,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.22)
$pgm.puts  "fprintf(out_fd,\"x = -14.22\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.22);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.11)
$pgm.puts  "fprintf(out_fd,\"x = -14.11\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.11);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-14.0)
$pgm.puts  "fprintf(out_fd,\"x = -14.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-14.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-14.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.89)
$pgm.puts  "fprintf(out_fd,\"x = -13.89\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.89);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.89,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.89,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.78)
$pgm.puts  "fprintf(out_fd,\"x = -13.78\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.78);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.67)
$pgm.puts  "fprintf(out_fd,\"x = -13.67\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.67);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.67,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.67,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.56)
$pgm.puts  "fprintf(out_fd,\"x = -13.56\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.56);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.56,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.56,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.45)
$pgm.puts  "fprintf(out_fd,\"x = -13.45\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.45);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.45,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.45,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.34)
$pgm.puts  "fprintf(out_fd,\"x = -13.34\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.34);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.23)
$pgm.puts  "fprintf(out_fd,\"x = -13.23\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.23);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.23,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.23,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.12)
$pgm.puts  "fprintf(out_fd,\"x = -13.12\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.12);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.12,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.12,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-13.01)
$pgm.puts  "fprintf(out_fd,\"x = -13.01\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-13.01);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-13.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.9)
$pgm.puts  "fprintf(out_fd,\"x = -12.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.79)
$pgm.puts  "fprintf(out_fd,\"x = -12.79\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.79);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.79,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.79,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.68)
$pgm.puts  "fprintf(out_fd,\"x = -12.68\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.68);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.68,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.68,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.57)
$pgm.puts  "fprintf(out_fd,\"x = -12.57\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.57);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.57,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.57,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.46)
$pgm.puts  "fprintf(out_fd,\"x = -12.46\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.46);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.35)
$pgm.puts  "fprintf(out_fd,\"x = -12.35\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.35);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.35,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.35,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.24)
$pgm.puts  "fprintf(out_fd,\"x = -12.24\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.24);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.24,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.24,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.13)
$pgm.puts  "fprintf(out_fd,\"x = -12.13\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.13);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.13,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.13,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-12.02)
$pgm.puts  "fprintf(out_fd,\"x = -12.02\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-12.02);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-12.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.91)
$pgm.puts  "fprintf(out_fd,\"x = -11.91\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.91);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.8)
$pgm.puts  "fprintf(out_fd,\"x = -11.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.69)
$pgm.puts  "fprintf(out_fd,\"x = -11.69\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.69);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.69,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.69,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.58)
$pgm.puts  "fprintf(out_fd,\"x = -11.58\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.58);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.47)
$pgm.puts  "fprintf(out_fd,\"x = -11.47\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.47);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.47,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.47,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.36)
$pgm.puts  "fprintf(out_fd,\"x = -11.36\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.36);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.36,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.36,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.25)
$pgm.puts  "fprintf(out_fd,\"x = -11.25\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.25);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.25,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.25,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.14)
$pgm.puts  "fprintf(out_fd,\"x = -11.14\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.14);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-11.03)
$pgm.puts  "fprintf(out_fd,\"x = -11.03\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-11.03);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.03,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-11.03,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.92)
$pgm.puts  "fprintf(out_fd,\"x = -10.92\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.92);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.92,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.92,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.81)
$pgm.puts  "fprintf(out_fd,\"x = -10.81\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.81);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.7)
$pgm.puts  "fprintf(out_fd,\"x = -10.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.59)
$pgm.puts  "fprintf(out_fd,\"x = -10.59\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.59);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.59,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.59,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.48)
$pgm.puts  "fprintf(out_fd,\"x = -10.48\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.48);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.48,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.48,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.37)
$pgm.puts  "fprintf(out_fd,\"x = -10.37\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.37);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.37,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.37,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.26)
$pgm.puts  "fprintf(out_fd,\"x = -10.26\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.26);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.15)
$pgm.puts  "fprintf(out_fd,\"x = -10.15\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.15);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-10.04)
$pgm.puts  "fprintf(out_fd,\"x = -10.04\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-10.04);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.04,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-10.04,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.93000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.93000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.93000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.82000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.82000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.82000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.71000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.71000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.71000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.60000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.60000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.60000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.49000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.49000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.49000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.49000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.49000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.38000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.38000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.38000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.38000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.38000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.27000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.27000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.27000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.27000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.27000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.16000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.16000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.16000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.16000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.16000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-9.05000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -9.05000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-9.05000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.05000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-9.05000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.94000000000005)
$pgm.puts  "fprintf(out_fd,\"x = -8.94000000000005\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-8.94000000000005);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.94000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.94000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.83000000000006)
$pgm.puts  "fprintf(out_fd,\"x = -8.83000000000006\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-8.83000000000006);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.83000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.83000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.72000000000006)
$pgm.puts  "fprintf(out_fd,\"x = -8.72000000000006\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-8.72000000000006);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.72000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.72000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-8.61000000000006)
$pgm.puts  "fprintf(out_fd,\"x = -8.61000000000006\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.frac
$pgm.puts  "fxm := frac(-8.61000000000006);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.61000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(frac,frac,-8.61000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
puts "maplefunc = erf apfunc = erf"
$pgm.puts "fprintf(out_fd,\"maplefunc = erf apfunc = erf\\n\");"
$pgm.puts "fprintf(except_fd,\"maplefunc = erf apfunc = erf\\n\");"
x = c(-1.5)
$pgm.puts  "fprintf(out_fd,\"x = -1.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-1.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.4)
$pgm.puts  "fprintf(out_fd,\"x = -1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.3)
$pgm.puts  "fprintf(out_fd,\"x = -1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.2)
$pgm.puts  "fprintf(out_fd,\"x = -1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.1)
$pgm.puts  "fprintf(out_fd,\"x = -1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-1.0)
$pgm.puts  "fprintf(out_fd,\"x = -1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.9)
$pgm.puts  "fprintf(out_fd,\"x = -0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.8)
$pgm.puts  "fprintf(out_fd,\"x = -0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.7)
$pgm.puts  "fprintf(out_fd,\"x = -0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.6)
$pgm.puts  "fprintf(out_fd,\"x = -0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.5)
$pgm.puts  "fprintf(out_fd,\"x = -0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.4)
$pgm.puts  "fprintf(out_fd,\"x = -0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.3)
$pgm.puts  "fprintf(out_fd,\"x = -0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.2)
$pgm.puts  "fprintf(out_fd,\"x = -0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(-0.0999999999999998)
$pgm.puts  "fprintf(out_fd,\"x = -0.0999999999999998\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(-0.0999999999999998);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.94289029309402e-16)
$pgm.puts  "fprintf(out_fd,\"x = 1.94289029309402e-16\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(1.94289029309402e-16);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.1)
$pgm.puts  "fprintf(out_fd,\"x = 0.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.2)
$pgm.puts  "fprintf(out_fd,\"x = 0.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.3)
$pgm.puts  "fprintf(out_fd,\"x = 0.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.4)
$pgm.puts  "fprintf(out_fd,\"x = 0.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.5)
$pgm.puts  "fprintf(out_fd,\"x = 0.5\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.5);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.6)
$pgm.puts  "fprintf(out_fd,\"x = 0.6\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.6);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.7)
$pgm.puts  "fprintf(out_fd,\"x = 0.7\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.7);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.8)
$pgm.puts  "fprintf(out_fd,\"x = 0.8\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.8);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(0.9)
$pgm.puts  "fprintf(out_fd,\"x = 0.9\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(0.9);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.0)
$pgm.puts  "fprintf(out_fd,\"x = 1.0\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(1.0);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.1)
$pgm.puts  "fprintf(out_fd,\"x = 1.1\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(1.1);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.2)
$pgm.puts  "fprintf(out_fd,\"x = 1.2\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(1.2);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.3)
$pgm.puts  "fprintf(out_fd,\"x = 1.3\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(1.3);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
x = c(1.4)
$pgm.puts  "fprintf(out_fd,\"x = 1.4\\n\");"
$pgm.puts "total_tests := total_tests + 1;"
fxr = x.erf
$pgm.puts  "fxm := erf(1.4);"
$pgm.puts  "fxr2 := #{fxr.to_s_main};"
$pgm.puts  "fxrerr := #{fxr.to_s_err};"
$pgm.puts  "fxr := fxr2;"
$pgm.puts  "abs_err := abs(fxm - fxr);"
$pgm.puts  "if fxm <> 0.0 then "
$pgm.puts  "percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;"
$pgm.puts  "end;"
$pgm.puts  "if (percent_error > 1.0e-10) then"
$pgm.puts  "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\");"
$pgm.puts  "dump_except(erf,erf,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "if (abs_err > fxrerr) then"
$pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\");"
$pgm.puts  "dump_except(erf,erf,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);"
$pgm.puts  "end;"
$pgm.puts  "fprintf(out_fd,\"fxr    = %18.12e\\n\",fxr);"
$pgm.puts  "fprintf(out_fd,\"fxm    = %18.12e\\n\",fxm);"
$pgm.puts  "fprintf(out_fd,\"fxrerr = %18.12e\\n\",fxrerr);"
$pgm.puts  "fprintf(out_fd,\"total_tests    = %d\\n\",total_tests);"
$pgm.puts  "fprintf(out_fd,\"total_exceptions    = %d\\n\",total_exceptions);"
$pgm.puts  "fprintf(except_fd,\"total_tests    = %d\\n\",total_tests);"
$pgm.puts  "fprintf(except_fd,\"total_exceptions    = %d\\n\",total_exceptions);"
$pgm.puts "mend := trunc(time()*1000.0);"
$pgm.puts "rend := #{Time.now.to_i}*1000;"
t = Process.times
$pgm.puts "rcpuuend := #{t.utime}*1000;"
$pgm.puts "rcpusend := #{t.stime}*1000;"
$pgm.puts "melapsed := trunc(evalf(mend - mstart));"
$pgm.puts "relapsed := trunc(evalf(rend - rstart));"
$pgm.puts "rcpuuelapsed := trunc(evalf(rcpuuend - rcpuustart));"
$pgm.puts "rcpuselapsed := trunc(evalf(rcpusend - rcpusstart));"
$pgm.puts "mhours := hours_elapsed(melapsed);"
$pgm.puts "rhours := hours_elapsed(relapsed);"
$pgm.puts "rcpuuhours := hours_elapsed(rcpuuelapsed);"
$pgm.puts "rcpushours := hours_elapsed(rcpuselapsed);"
$pgm.puts "mmin := min_elapsed(mhours,melapsed);"
$pgm.puts "rmin := min_elapsed(rhours,relapsed);"
$pgm.puts "rcpuumin := min_elapsed(rcpuuhours,rcpuuelapsed);"
$pgm.puts "rcpusmin := min_elapsed(rhours,rcpuselapsed);"
$pgm.puts "msec := sec_elapsed(mhours,mmin,melapsed);"
$pgm.puts "rsec := sec_elapsed(rhours,rmin,relapsed);"
$pgm.puts "rcpuusec := sec_elapsed(rcpuuhours,rcpuumin,rcpuuelapsed);"
$pgm.puts "rcpussec := sec_elapsed(rcpushours,rcpusmin,rcpuselapsed);"
$pgm.puts "mmsec := msec_elapsed(mhours,mmin,msec,melapsed);"
$pgm.puts "rmsec := msec_elapsed(rhours,rmin,rsec,relapsed);"
$pgm.puts "rcpuumsec := msec_elapsed(rcpuuhours,rcpuumin,rcpuusec,rcpuuelapsed);"
$pgm.puts "rcpusmsec := msec_elapsed(rcpushours,rcpusmin,rcpussec,rcpuselapsed);"
$pgm.puts  "fprintf(out_fd,\"Maple %d hours %d minutes %d seconds %d msec CPU\\n\",mhours,mmin,msec,mmsec);"
$pgm.puts  "fprintf(out_fd,\"Ruby  %d hours %d minutes %d seconds %d msec Clock\\n\",rhours,rmin,rsec,rmsec);"
$pgm.puts  "fprintf(out_fd,\"Ruby  %d hours %d minutes %d seconds %d msec User CPU\\n\",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec);"
$pgm.puts  "fprintf(out_fd,\"Ruby  %d hours %d minutes %d seconds %d msec System CPU\\n\",rcpushours,rcpusmin,rcpussec,rcpusmsec);"
$pgm.puts  "fprintf(except_fd,\"Maple %d hours %d minutes %d seconds %d msec CPU\\n\",mhours,mmin,msec,mmsec);"
$pgm.puts  "fprintf(except_fd,\"Ruby  %d hours %d minutes %d seconds %d msec Clock\\n\",rhours,rmin,rsec,rmsec);"
$pgm.puts  "fprintf(except_fd,\"Ruby  %d hours %d minutes %d seconds %d msec User CPU\\n\",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec);"
$pgm.puts  "fprintf(except_fd,\"Ruby  %d hours %d minutes %d seconds %d msec System CPU\\n\",rcpushours,rcpusmin,rcpussec,rcpusmsec);"
$pgm.puts  "printf(\"Maple %d hours %d minutes %d seconds %d msec CPU\\n\",mhours,mmin,msec,mmsec);"
$pgm.puts  "printf(\"Ruby  %d hours %d minutes %d seconds %d msec Clock\\n\",rhours,rmin,rsec,rmsec);"
$pgm.puts  "printf(\"Ruby  %d hours %d minutes %d seconds %d msec User CPU\\n\",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec);"
$pgm.puts  "printf(\"Ruby  %d hours %d minutes %d seconds %d msec System CPU\\n\",rcpushours,rcpusmin,rcpussec,rcpusmsec);"
$pgm.puts "fclose(out_fd);"
$pgm.puts "fclose(except_fd);"
puts "End of APFP Regression Test"