mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 03:53:29 +01:00
complex hf bitmask
This commit is contained in:
parent
c79240962c
commit
3ebad92f76
@ -80,8 +80,7 @@ BEGIN_PROVIDER [ integer(bit_kind), HF_bitmask, (N_int,2)]
|
|||||||
integer :: occ(elec_alpha_num)
|
integer :: occ(elec_alpha_num)
|
||||||
|
|
||||||
HF_bitmask = 0_bit_kind
|
HF_bitmask = 0_bit_kind
|
||||||
!if (is_complex) then
|
if (is_complex) then
|
||||||
if (.False.) then
|
|
||||||
integer :: kpt,korb
|
integer :: kpt,korb
|
||||||
kpt=1
|
kpt=1
|
||||||
korb=1
|
korb=1
|
||||||
|
Loading…
Reference in New Issue
Block a user