9
1
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:
Kevin Gasperich 2020-03-16 12:10:15 -05:00
parent c79240962c
commit 3ebad92f76

View File

@ -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