TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-23 12:57:20 +01:00
Code Issues Projects Releases Wiki Activity

Fix for kind in call to iand. #22

Browse Source
This commit is contained in:
vijay gopal chilkuri 2021-07-07 19:22:15 +05:30
parent b4c7a8b0ac
commit 56eae6d0ea
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
org/qmckl_jastrow.org
View File

@ -4398,7 +4398,7 @@ integer function qmckl_compute_dim_cord_vect_f(context, cord_num, dim_cord_vect)
lmax = p - k - 2 lmax = p - k - 2
endif endif
do l = lmax, 0, -1 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 dim_cord_vect = dim_cord_vect + 1
end do end do
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 lmax = p - k - 2
end if end if
do l = lmax, 0, -1 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 m = (p - k - l)/2
kk = kk + 1 kk = kk + 1
lkpm_combined_index(kk, 1) = l lkpm_combined_index(kk, 1) = l