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
  integer, parameter             :: d_hole1 = 1
  integer, parameter             :: d_part1 = 2
  integer, parameter             :: d_hole2 = 3
  integer, parameter             :: d_part2 = 4
  integer, parameter             :: s_hole  = 5
  integer, parameter             :: s_part  = 6
end module
