From 3ebad92f76ab55169d59ff32008c3b5f873f27e0 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Mon, 16 Mar 2020 12:10:15 -0500 Subject: [PATCH] complex hf bitmask --- src/bitmask/bitmasks.irp.f | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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