Commit 24911884 authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge

Hk: --
parents 442e6cd7 2aa16ad7
......@@ -329,7 +329,7 @@
(rt:deftest qag2.key3.1.0
(multiple-value-bind (result est-abserr neval ier soln abserr)
(test-02 :key 3 :alpha 1.0d0)
(if (and (= ier 0) (< abserr double-float-epsilon))
(if (and (= ier 0) (< abserr (* 4 double-float-epsilon)))
t (values result est-abserr neval ier soln abserr)))
t)
......@@ -476,7 +476,7 @@
(rt:deftest qag2.key5.0.6
(multiple-value-bind (result est-abserr neval ier soln abserr)
(test-02 :key 5 :alpha 0.6d0)
(if (and (= ier 0) (< abserr double-float-epsilon))
(if (and (= ier 0) (< abserr (* 2 double-float-epsilon)))
t (values result est-abserr neval ier soln abserr)))
t)
......
......@@ -66,7 +66,7 @@
(rt:deftest test4-qags.-0.5
(multiple-value-bind (result est-abserr neval ier soln abserr)
(tst4-qags :alpha -0.5d0)
(if (and (= ier 0) (< abserr 1.688d-14))
(if (and (= ier 0) (< abserr 7.1055d-14))
t
(values result est-abserr neval ier soln abserr)))
t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment