mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 10:48:31 +02:00
Fix CSF
This commit is contained in:
parent
27ef2ff39f
commit
753399f40c
@ -63,13 +63,14 @@ subroutine convertWFfromDETtoCSF(N_st,psi_coef_det_in, psi_coef_cfg_out)
|
|||||||
if (psi_configuration(k,1,i) == 0_bit_kind) cycle
|
if (psi_configuration(k,1,i) == 0_bit_kind) cycle
|
||||||
s = s + popcnt(psi_configuration(k,1,i))
|
s = s + popcnt(psi_configuration(k,1,i))
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
! Test 1
|
|
||||||
if(iand(MS,1) .EQ. 0) then
|
|
||||||
bfIcfg = max(1,nint((binom(s,s/2)-binom(s,s/2+1))))
|
|
||||||
else
|
|
||||||
bfIcfg = max(1,nint((binom(s,(s+1)/2)-binom(s,((s+1)/2)+1))))
|
bfIcfg = max(1,nint((binom(s,(s+1)/2)-binom(s,((s+1)/2)+1))))
|
||||||
endif
|
|
||||||
|
! ! Test 1
|
||||||
|
! if(iand(MS,1) .EQ. 0) then
|
||||||
|
! bfIcfg = max(1,nint((binom(s,s/2)-binom(s,s/2+1))))
|
||||||
|
! else
|
||||||
|
! bfIcfg = max(1,nint((binom(s,(s+1)/2)-binom(s,((s+1)/2)+1))))
|
||||||
|
! endif
|
||||||
|
|
||||||
! perhaps blocking with CFGs of same seniority
|
! perhaps blocking with CFGs of same seniority
|
||||||
! can be more efficient
|
! can be more efficient
|
||||||
|
Loading…
Reference in New Issue
Block a user