mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-09 15:43:54 +01:00
12 lines
513 B
Fortran
12 lines
513 B
Fortran
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 bitmasks
|