From dcff0cf4b487baae691da854b4e116815db4e72e Mon Sep 17 00:00:00 2001 From: vijay gopal chilkuri Date: Thu, 8 Jul 2021 11:30:07 +0530 Subject: [PATCH] Fixed bug in bord_vector dimension. #22 --- org/qmckl_jastrow.org | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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);