9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 14:03:37 +01:00

Change in weights

This commit is contained in:
Anthony Scemama 2021-03-12 11:42:15 +01:00
parent 9f26e53351
commit 2a26476613

View File

@ -796,7 +796,7 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
enddo enddo
call configuration_to_dets_size(occ,n,elec_alpha_num,N_int) call configuration_to_dets_size(occ,n,elec_alpha_num,N_int)
n = max(n,1) n = max(n,1)
w *= dsqrt(dble(n)) w *= dble(n)
endif endif
if(w <= buf%mini) then if(w <= buf%mini) then