mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-02 11:25:26 +02:00
13 lines
563 B
Fortran
13 lines
563 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 :: mpi_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
|