From 56eae6d0eacf2de53038bbd1a9dccdc2865971e1 Mon Sep 17 00:00:00 2001 From: vijay gopal chilkuri Date: Wed, 7 Jul 2021 19:22:15 +0530 Subject: [PATCH] Fix for kind in call to iand. #22 --- org/qmckl_jastrow.org | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/org/qmckl_jastrow.org b/org/qmckl_jastrow.org index 9dfe3c8..88b467c 100644 --- a/org/qmckl_jastrow.org +++ b/org/qmckl_jastrow.org @@ -4398,7 +4398,7 @@ integer function qmckl_compute_dim_cord_vect_f(context, cord_num, dim_cord_vect) lmax = p - k - 2 endif do l = lmax, 0, -1 - if (iand(p - k - l, 1) == 1) cycle + if (iand(p - k - l, 1_8) == 1) cycle dim_cord_vect = dim_cord_vect + 1 end do end do @@ -4618,7 +4618,7 @@ integer function qmckl_compute_lkpm_combined_index_f(context, cord_num, dim_cord lmax = p - k - 2 end if do l = lmax, 0, -1 - if (iand(p - k - l, 1) .eq. 1) cycle + if (iand(p - k - l, 1_8) .eq. 1) cycle m = (p - k - l)/2 kk = kk + 1 lkpm_combined_index(kk, 1) = l