diff --git a/org/qmckl_ao.org b/org/qmckl_ao.org index 90fc648..8d8ba22 100644 --- a/org/qmckl_ao.org +++ b/org/qmckl_ao.org @@ -1768,7 +1768,6 @@ integer(c_int32_t) function test_qmckl_ao_gaussian_vgl(context) bind(C) A(i) = 0.0013 * dble(ishft(1,i)) end do - test_qmckl_ao_gaussian_vgl = & qmckl_ao_gaussian_vgl(context, X, R, n, A, VGL, ldv) @@ -1787,8 +1786,9 @@ integer(c_int32_t) function test_qmckl_ao_gaussian_vgl(context) bind(C) vfc_err = qmckl_probe_check("ao"//C_NULL_CHAR, "gaussian_vgl_2_5"//C_NULL_CHAR, & DBLE(VGL(2,5)), DBLE(0), DBLE(epsilon)) - +#ifndef VFC_CI if (test_qmckl_ao_gaussian_vgl /= 0) return +#endif test_qmckl_ao_gaussian_vgl = -1 @@ -1822,8 +1822,8 @@ integer(c_int32_t) function test_qmckl_ao_gaussian_vgl(context) bind(C) #endif test_qmckl_ao_gaussian_vgl = 0 - deallocate(VGL) + end function test_qmckl_ao_gaussian_vgl #+end_src @@ -2846,7 +2846,6 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C) end do test_qmckl_ao_power = qmckl_ao_power(context, n, X, LMAX, P, LDP) - print *, "test_qmckl_ao_power", test_qmckl_ao_power vfc_err = qmckl_probe_check("ao"//C_NULL_CHAR, "power_2_2"//C_NULL_CHAR, & DBLE(P(2,2)), DBLE(0), DBLE(epsilon)) @@ -3208,7 +3207,7 @@ integer(c_int32_t) function test_qmckl_ao_polynomial_vgl(context) bind(C) if (test_qmckl_ao_polynomial_vgl /= QMCKL_SUCCESS) return if (n /= d) return -#ifdef VFC_CI +#ifndef VFC_CI do j=1,n test_qmckl_ao_polynomial_vgl = QMCKL_FAILURE do i=1,3