LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-25 22:52:15 +02:00
Code Issues Releases Wiki Activity

Fixed assert:BANDON

Browse Source
This commit is contained in:
Anthony Scemama 2016-10-02 23:12:17 +02:00
parent 7ef1cf6e67
commit 2a0a5f8b6f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plugins/Selectors_full/selectors.irp.f
View File

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