From 3dce118de0a298d6bfffcecc017a71196910bbf9 Mon Sep 17 00:00:00 2001
From: simon
Date: Mon, 7 Sep 2009 13:02:13 +0000
Subject: Enable automated tests
---
src/c/elementaryFunctions/log1p/testDoubleLog1p.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'src/c/elementaryFunctions/log1p/testDoubleLog1p.c')
diff --git a/src/c/elementaryFunctions/log1p/testDoubleLog1p.c b/src/c/elementaryFunctions/log1p/testDoubleLog1p.c
index 1499b296..2faacfaa 100644
--- a/src/c/elementaryFunctions/log1p/testDoubleLog1p.c
+++ b/src/c/elementaryFunctions/log1p/testDoubleLog1p.c
@@ -1162,8 +1162,8 @@ void zlog1psTest(void) {
for (i=0;i<200;i++){
in=DoubleComplex(inR[i]-1,inI[i]);
out=zlog1ps(in);
- assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<3e-16);
- assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<3e-16);
+ assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<3e-15);
+ assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<3e-15);
}
for (i=0;i<200;i++){
@@ -1221,8 +1221,8 @@ void zlog1paTest(void) {
zlog1pa(in,200,out);
for (i=0;i<200;i++){
- assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<3e-16);
- assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<3e-16);
+ assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<3e-15);
+ assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<3e-15);
}
in2=DoubleComplexMatrix(in2R,in2I,200);
--
cgit