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