diff options
Diffstat (limited to 'src/c/elementaryFunctions/log1p/testDoubleLog1p.c')
| -rw-r--r-- | src/c/elementaryFunctions/log1p/testDoubleLog1p.c | 8 |
1 files changed, 4 insertions, 4 deletions
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); |