TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-23 04:44:03 +01:00
Code Issues Projects Releases Wiki Activity

Precision in tests

Browse Source
This commit is contained in:
Anthony Scemama 2020-10-26 19:41:07 +01:00
parent a20394f636
commit 1a16defe35
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/qmckl_distance.org
View File

@ -217,7 +217,7 @@ integer(c_int32_t) function test_qmckl_distance_sq(context) bind(C)
x = (A(i,1)-B(j,1))**2 + & x = (A(i,1)-B(j,1))**2 + &
(A(i,2)-B(j,2))**2 + & (A(i,2)-B(j,2))**2 + &
(A(i,3)-B(j,3))**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
end do end do
test_qmckl_distance_sq = 0 test_qmckl_distance_sq = 0