From 1a16defe35237319041ab0c00d1174f0a575f4ac Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 26 Oct 2020 19:41:07 +0100 Subject: [PATCH] Precision in tests --- src/qmckl_distance.org | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/qmckl_distance.org b/src/qmckl_distance.org index b34b939..5bdbb53 100644 --- a/src/qmckl_distance.org +++ b/src/qmckl_distance.org @@ -217,7 +217,7 @@ integer(c_int32_t) function test_qmckl_distance_sq(context) bind(C) x = (A(i,1)-B(j,1))**2 + & (A(i,2)-B(j,2))**2 + & (A(i,3)-B(j,3))**2 - if ( dabs(1.d0 - C(i,j)/x) > 1.d-12 ) return + if ( dabs(1.d0 - C(i,j)/x) > 1.d-14 ) return end do end do test_qmckl_distance_sq = 0