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