module bitmasks
  integer, parameter             :: bit_kind_shift = 6   ! 5: 32 bits, 6: 64 bits
  integer, parameter             :: bit_kind_size = 64
  integer, parameter             :: bit_kind = 64/8
end module