TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-03 10:06:09 +01:00
Code Issues Projects Releases Wiki Activity

FIxed tests

Browse Source
This commit is contained in:
Anthony Scemama 2021-03-19 00:16:18 +01:00
parent 8c7a1df382
commit 14c216a51a
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/qmckl_ao.org
View File

@ -325,11 +325,6 @@ integer function qmckl_ao_polynomial_vgl_f(context, X, R, lmax, n, L, ldl, VGL,
return return
endif endif
if (n <= 0) then
info = QMCKL_INVALID_ARG_5
return
endif
if (ldl < 3) then if (ldl < 3) then
info = QMCKL_INVALID_ARG_7 info = QMCKL_INVALID_ARG_7
return return
@ -492,16 +487,11 @@ integer(c_int32_t) function test_qmckl_ao_polynomial_vgl(context) bind(C)
allocate (L(ldl,d), VGL(ldv,d)) allocate (L(ldl,d), VGL(ldv,d))
test_qmckl_ao_polynomial_vgl = &
qmckl_ao_polynomial_vgl(context, X, R, lmax, n, L, ldl, VGL, ldv)
if (test_qmckl_ao_polynomial_vgl /= QMCKL_INVALID_ARG_5) return
n=d
test_qmckl_ao_polynomial_vgl = & test_qmckl_ao_polynomial_vgl = &
qmckl_ao_polynomial_vgl(context, X, R, lmax, n, L, ldl, VGL, ldv) qmckl_ao_polynomial_vgl(context, X, R, lmax, n, L, ldl, VGL, ldv)
if (test_qmckl_ao_polynomial_vgl /= QMCKL_SUCCESS) return if (test_qmckl_ao_polynomial_vgl /= QMCKL_SUCCESS) return
if (n /= d) return
do j=1,n do j=1,n
test_qmckl_ao_polynomial_vgl = QMCKL_FAILURE test_qmckl_ao_polynomial_vgl = QMCKL_FAILURE