9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-26 06:22:04 +02:00

fixed AO/MO mistake in bitmask

This commit is contained in:
Kevin Gasperich 2020-03-27 11:29:24 -05:00
parent f17b36c3e4
commit 4a31254d6b

View File

@ -85,7 +85,7 @@ BEGIN_PROVIDER [ integer(bit_kind), HF_bitmask, (N_int,2)]
kpt=1
korb=1
do i=1,elec_alpha_num
occ(i) = korb + (kpt-1) * ao_num_per_kpt
occ(i) = korb + (kpt-1) * mo_num_per_kpt
kpt += 1
if (kpt > kpt_num) then
kpt = 1