mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 02:38:31 +02: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)
|
||||
|
||||
HF_bitmask = 0_bit_kind
|
||||
!if (is_complex) then
|
||||
if (.False.) then
|
||||
if (is_complex) then
|
||||
integer :: kpt,korb
|
||||
kpt=1
|
||||
korb=1
|
||||
|
Loading…
Reference in New Issue
Block a user