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

Fixed assert:BANDON

This commit is contained in:
Anthony Scemama 2016-10-02 23:12:17 +02:00
parent 7ef1cf6e67
commit 2a0a5f8b6f

View File

@ -14,7 +14,7 @@ BEGIN_PROVIDER [ integer, N_det_selectors]
integer :: i
double precision :: norm, norm_max
call write_time(output_determinants)
N_det_selectors = N_det
N_det_selectors = N_det_generators
if (threshold_generators < 1.d0) then
norm = 0.d0
do i=1,N_det
@ -24,7 +24,7 @@ BEGIN_PROVIDER [ integer, N_det_selectors]
exit
endif
enddo
N_det_selectors = max(N_det_selectors,1)
N_det_selectors = max(N_det_selectors,N_det_generators)
endif
call write_int(output_determinants,N_det_selectors,'Number of selectors')
END_PROVIDER