mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 13:43:40 +02:00
This commit is contained in:
parent
ee4074b3a9
commit
89aaf30460
@ -889,9 +889,9 @@ subroutine fill_buffer_$DOUBLE(i_generator, sp, h1, h2, bannedOrb, banned, fock_
|
|||||||
w *= dsqrt(dble(n))
|
w *= dsqrt(dble(n))
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if(dabs(w).gt.1.d-5)then
|
! if(dabs(w).gt.1.d-5)then
|
||||||
print*,w,buf%mini
|
! print*,w,buf%mini
|
||||||
endif
|
! endif
|
||||||
|
|
||||||
if(w <= buf%mini) then
|
if(w <= buf%mini) then
|
||||||
call add_to_selection_buffer(buf, det, w)
|
call add_to_selection_buffer(buf, det, w)
|
||||||
|
Loading…
Reference in New Issue
Block a user