mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-19 04:22:32 +01:00
12 lines
510 B
Fortran
12 lines
510 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 = 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
|