mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-31 08:33:40 +02:00
bit_kind
This commit is contained in:
parent
efe8cbe28d
commit
adbfd7c90e
@ -74,8 +74,8 @@ subroutine $subroutine_diexcP(key_in, fs1, fh1, particl_1, fs2, fh2, particl_2,
|
|||||||
integer :: n_minilist, n_alpha, n_beta, deg(2), i, ni
|
integer :: n_minilist, n_alpha, n_beta, deg(2), i, ni
|
||||||
$declarations
|
$declarations
|
||||||
|
|
||||||
p1_mask(:,:) = 0
|
p1_mask(:,:) = 0_bit_kind
|
||||||
p2_mask(:,:) = 0
|
p2_mask(:,:) = 0_bit_kind
|
||||||
p1_mask(fh1/bit_kind_size + 1, fs1) = 2**(mod(fh1-1,bit_kind_size))
|
p1_mask(fh1/bit_kind_size + 1, fs1) = 2**(mod(fh1-1,bit_kind_size))
|
||||||
p2_mask(fh2/bit_kind_size + 1, fs2) = 2**(mod(fh2-1,bit_kind_size))
|
p2_mask(fh2/bit_kind_size + 1, fs2) = 2**(mod(fh2-1,bit_kind_size))
|
||||||
|
|
||||||
@ -84,7 +84,7 @@ subroutine $subroutine_diexcP(key_in, fs1, fh1, particl_1, fs2, fh2, particl_2,
|
|||||||
key_mask(:,:) = key_in(:,:)
|
key_mask(:,:) = key_in(:,:)
|
||||||
key_mask(fh1/bit_kind_size + 1, fs1) -= 2**(mod(fh1-1,bit_kind_size))
|
key_mask(fh1/bit_kind_size + 1, fs1) -= 2**(mod(fh1-1,bit_kind_size))
|
||||||
key_mask(fh2/bit_kind_size + 1, fs2) -= 2**(mod(fh2-1,bit_kind_size))
|
key_mask(fh2/bit_kind_size + 1, fs2) -= 2**(mod(fh2-1,bit_kind_size))
|
||||||
!
|
|
||||||
! do i=1,N_int
|
! do i=1,N_int
|
||||||
! n_alpha = n_alpha + popcnt(key_mask(i, 1))
|
! n_alpha = n_alpha + popcnt(key_mask(i, 1))
|
||||||
! n_beta = n_beta + popcnt(key_mask(i, 2))
|
! n_beta = n_beta + popcnt(key_mask(i, 2))
|
||||||
@ -407,7 +407,7 @@ subroutine $subroutine_monoexc(key_in, hole_1,particl_1,i_generator,iproc_in $pa
|
|||||||
|
|
||||||
logical :: check_double_excitation
|
logical :: check_double_excitation
|
||||||
|
|
||||||
key_mask(:,:) = 0_8
|
key_mask(:,:) = 0_bit_kind
|
||||||
|
|
||||||
iproc = iproc_in
|
iproc = iproc_in
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user