diff --git a/src/bitmask/bitmasks.irp.f b/src/bitmask/bitmasks.irp.f index 469b27b0..03127b1c 100644 --- a/src/bitmask/bitmasks.irp.f +++ b/src/bitmask/bitmasks.irp.f @@ -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