1
0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-23 04:44:03 +01:00

Fix for kind in call to iand. #22

This commit is contained in:
vijay gopal chilkuri 2021-07-07 19:22:15 +05:30
parent b4c7a8b0ac
commit 56eae6d0ea

View File

@ -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