diff --git a/src/g2/v3.1.0/src/intmath.f b/src/g2/v3.1.0/src/intmath.f
index f26b060..f3b1bc4 100644
--- a/src/g2/v3.1.0/src/intmath.f
+++ b/src/g2/v3.1.0/src/intmath.f
@@ -169,7 +169,7 @@ function ilog2_2(i_in)
       ilog2_2=0
       i=i_in
       if(i<=0) return
-      if(iand(i,i-1)/=0) then
+      if(iand(i,int(i-1,kind=2))/=0) then
          !write(0,*) 'iand i-1'
          ilog2_2=1
       endif
@@ -204,7 +204,7 @@ function ilog2_1(i_in)
       ilog2_1=0
       i=i_in
       if(i<=0) return
-      if(iand(i,i-1)/=0) then
+      if(iand(i,int(i-1,kind=1))/=0) then
          !write(0,*) 'iand i-1'
          ilog2_1=1
       endif