diff --git a/org/qmckl_jastrow.org b/org/qmckl_jastrow.org index 5eba7b7..b02fe06 100644 --- a/org/qmckl_jastrow.org +++ b/org/qmckl_jastrow.org @@ -1288,7 +1288,7 @@ integer function qmckl_compute_asymp_jasb_f(context, bord_num, bord_vector, resc implicit none integer(qmckl_context), intent(in) :: context integer*8 , intent(in) :: bord_num - double precision , intent(in) :: bord_vector(bord_num) + double precision , intent(in) :: bord_vector(bord_num + 1) double precision , intent(in) :: rescale_factor_kappa_ee double precision , intent(out) :: asymp_jasb(2) @@ -1425,8 +1425,8 @@ assert(rc == QMCKL_SUCCESS); /* Check if Jastrow is properly initialized */ assert(qmckl_jastrow_provided(context)); -//double asymp_jasb[2]; -//rc = qmckl_get_jastrow_asymp_jasb(context, asymp_jasb); +double asymp_jasb[2]; +rc = qmckl_get_jastrow_asymp_jasb(context, asymp_jasb); //// calculate asymp_jasb //assert(fabs(asymp_jasb[0]-0.5323750557252571) < 1.e-12);