9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-13 03:11:31 +02:00

bugfix large N_det

This commit is contained in:
Yann Damour 2024-03-26 15:22:20 +01:00
parent 54d836f029
commit 57657cb163

View File

@ -176,8 +176,12 @@ END_PROVIDER
if (state_following .and. only_expected_s2) then
integer :: state(N_states), idx,l
double precision :: overlp(N_det), omax
logical :: ok(N_det), used
double precision :: omax
double precision, allocatable :: overlp(:)
logical :: used
logical, allocatable :: ok(:)
allocate(overlp(N_det), ok(N_det))
i_state = 0
state = 0
@ -216,6 +220,8 @@ END_PROVIDER
i_state +=1
enddo
deallocate(overlp, ok)
do i = 1, i_state
index_good_state_array(i) = state(i)
good_state_array(i) = .True.