# HG changeset patch
# User Rob Mahurin <rob@chimera.(none)>
# Date 1233648836 -3600
# Node ID e3041433a57e0d15fccb68429b3606b00005ca4f
# Parent  d48a1837d2bc19c92d664477a95e8d2b7545b0a0
increase tolerance in interpft tests

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2009-02-02  Rob Mahurin <rob@utk.edu>
+
+	* general/interpft.m: Increase tolerance in tests, for FFTPACK.
+	
 2009-02-03  Jaroslav Hajek  <highegg@gmail.com>
 
 	* optimization/__all_opts__.m: Yield empty list in recursive calls.
diff --git a/scripts/general/interpft.m b/scripts/general/interpft.m
--- a/scripts/general/interpft.m
+++ b/scripts/general/interpft.m
@@ -106,9 +106,9 @@
 
 %!shared n,y
 %! x = [0:10]'; y = sin(x); n = length (x);
-%!assert (interpft(y, n), y, 2*eps);
-%!assert (interpft(y', n), y', 2*eps);
-%!assert (interpft([y,y],n), [y,y], 2*eps);
+%!assert (interpft(y, n), y, 20*eps);
+%!assert (interpft(y', n), y', 20*eps);
+%!assert (interpft([y,y],n), [y,y], 20*eps);
 
 %!error (interpft(y,n,0))
 %!error (interpft(y,[n,n]))