diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/TP_utilities.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/TP_utilities.c b/src/TP_utilities.c index 64edbfd..5c4b5da 100644 --- a/src/TP_utilities.c +++ b/src/TP_utilities.c @@ -555,7 +555,12 @@ chebft_Zeros (double u[], int n, int inv) } } for (j = 0; j < n; j++) - u[j] = c[j]; +#if 0 + if (fabs(c[j]) < 5.e-16) + u[j] = 0.0; + else +#endif + u[j] = c[j]; free_dvector (c, 0, n); } |