10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-25 22:52:15 +02:00

Bug in pt2 stoch

This commit is contained in:
Anthony Scemama 2017-04-12 15:32:02 +02:00
parent ae7b7024de
commit 4103b1d3e1

View File

@ -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