mirror of
https://github.com/LCPQ/quantum_package
synced 2025-01-05 11:00:10 +01:00
Bug in pt2 stoch
This commit is contained in:
parent
ae7b7024de
commit
4103b1d3e1
@ -523,6 +523,7 @@ end subroutine
|
|||||||
norm_left = 1d0
|
norm_left = 1d0
|
||||||
|
|
||||||
comb_step = 1d0/dfloat(comb_teeth)
|
comb_step = 1d0/dfloat(comb_teeth)
|
||||||
|
first_det_of_comb = 1
|
||||||
do i=1,N_det_generators
|
do i=1,N_det_generators
|
||||||
if(pt2_weight(i)/norm_left < comb_step*.5d0) then
|
if(pt2_weight(i)/norm_left < comb_step*.5d0) then
|
||||||
first_det_of_comb = i
|
first_det_of_comb = i
|
||||||
|
Loading…
Reference in New Issue
Block a user