diff --git a/org/qmckl_ao.org b/org/qmckl_ao.org index 8d8ba22..42f7692 100644 --- a/org/qmckl_ao.org +++ b/org/qmckl_ao.org @@ -1755,6 +1755,13 @@ integer(c_int32_t) function test_qmckl_ao_gaussian_vgl(context) bind(C) epsilon = qmckl_get_numprec_epsilon(context) +#ifdef VFC_CI + ! Multplying epsilon by 16 = 2^4 is equivalent to asking 4 significant digits + ! less. This makes sense because we are adding noise with MCA so we can't be + ! as strict on the accuracy target. + epsilon = epsilon * 16 +#endif + X = (/ 1.1 , 2.2 , 3.3 /) R = (/ 0.1 , 1.2 , -2.3 /) Y(:) = X(:) - R(:) @@ -2835,6 +2842,13 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C) epsilon = qmckl_get_numprec_epsilon(context) +#ifdef VFC_CI + ! Multplying epsilon by 16 = 2^4 is equivalent to asking 4 significant digits + ! less. This makes sense because we are adding noise with MCA so we can't be + ! as strict on the accuracy target. + epsilon = epsilon * 16 +#endif + n = 100; LDP = 10;