LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-11 05:33:34 +02:00
Code Releases Activity

complex hf bitmask

Browse Source
This commit is contained in:
Kevin Gasperich 2020-03-16 12:10:15 -05:00
parent c79240962c
commit 3ebad92f76
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/bitmask/bitmasks.irp.f
View File

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