diff --git a/org/qmckl_ao.org b/org/qmckl_ao.org index 83bafd9..90fc648 100644 --- a/org/qmckl_ao.org +++ b/org/qmckl_ao.org @@ -2846,6 +2846,7 @@ 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)) @@ -2854,6 +2855,7 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C) test_qmckl_ao_power = QMCKL_FAILURE +#ifndef VFC_CI do j=1,n do i=1,LMAX(j) if ( X(j)**i == 0.d0 ) then @@ -2863,6 +2865,7 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C) end if end do end do +#endif test_qmckl_ao_power = QMCKL_SUCCESS deallocate(X,P,LMAX) diff --git a/org/qmckl_distance.org b/org/qmckl_distance.org index f580691..fd524f4 100644 --- a/org/qmckl_distance.org +++ b/org/qmckl_distance.org @@ -308,7 +308,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C) LDC = 5 allocate( A(LDA,m), B(LDB,n), C(LDC,n) ) - do j=1,m do i=1,m A(i,j) = -10.d0 + dble(i+j) @@ -362,8 +361,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C) vfc_err = qmckl_probe_check("distance"//C_NULL_CHAR, "distance_sq_nT_2_2"//C_NULL_CHAR, DBLE(C(2,2)), DBLE(0), DBLE(1.d-14)) - if (test_qmckl_distance_sq == 0) return - test_qmckl_distance_sq = QMCKL_FAILURE @@ -385,7 +382,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C) if (test_qmckl_distance_sq == 0) return - test_qmckl_distance_sq = QMCKL_FAILURE do j=1,n @@ -404,8 +400,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C) vfc_err = qmckl_probe_check("distance"//C_NULL_CHAR, "distance_sq_nN_2_2"//C_NULL_CHAR, DBLE(C(2,2)), DBLE(0), DBLE(1.d-14)) - if (test_qmckl_distance_sq == 0) return - test_qmckl_distance_sq = QMCKL_FAILURE do j=1,n