mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02:00
Fixed assert:BANDON
This commit is contained in:
parent
7ef1cf6e67
commit
2a0a5f8b6f
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user